R语言 表示没有“经典”热图的相关矩阵

g6ll5ycj  于 2023-01-28  发布在  其他
关注(0)|答案(1)|浏览(142)

我正在对一个复杂网络进行分析,计算出了度相关矩阵,如下所示:

data[1:5, 1:5] 

    1  2  3  4  5
1   6 19 11 16  5
2  19 10 16 12  6
3  11 16  7 11 10
4  16 12 11  5  9
5   5  6 10  9  8

我想把它画出来得到类似于这个的东西:

我试过使用ggplot,但结果并不令人满意,这是我的代码:

library(reshape2)
library(ggplot2)
data = melt(data) 
#The "melt" function was used to turn the matrix in a three column dataframe with columns named "Var1",
"Var2", and "value"

ggplot(data = data) +
theme_bw() +
geom_tile(aes(x = Var1, y = Var2, fill = value)) +
scale_fill_viridis(name = "") +
labs(x = "k2", y = "k1")

这就是我得到的

有什么办法可以补救吗?
P.S.对不起,如果我不能直接张贴的图像,但我的声誉不够高
编辑:这里是矩阵的dput()输出,正如评论中所问的:

structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 
0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
1, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 
0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 
0, 0, 2, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 
0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 
0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 2, 1, 1, 1, 0, 0, 1, 
2, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 
0, 0, 2, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 1, 0, 1, 2, 0, 
0, 1, 0, 2, 0, 0, 2, 2, 0, 0, 0, 0, 0, 1, 1, 1, 0, 2, 0, 0, 0, 
1, 0, 0, 0, 2, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 3, 2, 1, 0, 3, 3, 3, 1, 2, 2, 1, 
1, 3, 3, 3, 2, 2, 1, 0, 1, 3, 2, 1, 1, 2, 0, 4, 1, 1, 1, 0, 0, 
0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 2, 
3, 0, 3, 6, 3, 2, 2, 3, 0, 2, 4, 2, 0, 6, 3, 1, 0, 3, 1, 2, 5, 
6, 2, 3, 0, 2, 0, 0, 1, 0, 0, 0, 1, 3, 1, 1, 0, 2, 0, 0, 0, 0, 
0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 3, 2, 7, 2, 1, 6, 3, 1, 
3, 2, 2, 3, 2, 3, 9, 0, 1, 2, 4, 0, 6, 0, 3, 0, 4, 0, 2, 0, 2, 
0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 
0, 0, 0, 1, 6, 7, 3, 6, 0, 5, 0, 1, 0, 5, 1, 3, 4, 1, 5, 0, 0, 
0, 4, 1, 5, 1, 2, 1, 1, 1, 5, 1, 4, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
2, 0, 0, 0, 2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 
1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 3, 2, 6, 1, 5, 
3, 0, 0, 2, 3, 0, 3, 2, 4, 5, 1, 1, 3, 2, 3, 4, 0, 2, 0, 2, 3, 
0, 0, 1, 0, 0, 0, 1, 2, 0, 0, 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 2, 1, 1, 0, 0, 
0, 1, 1, 1, 0, 0, 3, 2, 1, 0, 5, 3, 2, 6, 1, 3, 3, 1, 4, 2, 1, 
6, 1, 2, 0, 4, 2, 4, 0, 1, 0, 3, 3, 4, 2, 3, 4, 1, 0, 3, 3, 0, 
1, 1, 0, 4, 0, 2, 0, 1, 0, 0, 0, 2, 0, 2, 0, 0, 0, 0, 0, 0, 1, 
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 3, 2, 6, 
5, 3, 2, 0, 2, 2, 4, 9, 3, 0, 4, 1, 5, 4, 7, 2, 1, 3, 5, 4, 1, 
4, 3, 6, 3, 1, 0, 2, 0, 1, 3, 1, 1, 0, 1, 1, 2, 0, 0, 0, 0, 1, 
2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 1, 0, 0, 3, 3, 3, 0, 0, 6, 2, 1, 0, 1, 5, 1, 
0, 5, 1, 7, 1, 4, 2, 3, 2, 6, 1, 3, 1, 0, 0, 2, 1, 0, 2, 1, 0, 
0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
1, 0, 1, 1, 0, 1, 2, 0, 0, 1, 0, 0, 0, 4, 0, 1, 0, 0, 1, 1, 0, 
3, 1, 1, 0, 2, 0, 3, 0, 1, 2, 0, 0, 0, 2, 0, 1, 1, 0, 6, 1, 0, 
0, 0, 1, 1, 0, 0, 0, 2, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 2, 2, 2, 3, 0, 2, 3, 4, 1, 1, 
0, 3, 0, 2, 3, 1, 2, 3, 3, 5, 6, 2, 6, 3, 4, 1, 4, 1, 3, 3, 3, 
3, 1, 0, 2, 1, 0, 1, 6, 3, 6, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
0, 0, 2, 2, 4, 2, 5, 3, 3, 9, 5, 0, 3, 2, 1, 4, 7, 4, 2, 4, 6, 
3, 4, 3, 12, 0, 3, 2, 3, 2, 2, 3, 1, 1, 0, 1, 5, 3, 2, 1, 2, 
0, 6, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 2, 2, 1, 0, 
1, 3, 1, 0, 0, 1, 0, 1, 4, 2, 1, 1, 0, 2, 1, 1, 1, 1, 2, 2, 3, 
2, 0, 1, 2, 2, 3, 0, 1, 1, 0, 1, 4, 1, 3, 0, 1, 0, 3, 0, 1, 0, 
1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 1, 0, 1, 0, 3, 3, 3, 4, 0, 0, 0, 2, 4, 1, 1, 3, 
3, 1, 3, 2, 1, 3, 3, 2, 0, 1, 0, 2, 2, 0, 1, 2, 0, 0, 0, 2, 2, 
1, 0, 3, 0, 5, 0, 0, 0, 1, 2, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 6, 
2, 4, 2, 2, 4, 5, 4, 3, 7, 4, 3, 0, 3, 4, 1, 4, 4, 3, 6, 6, 1, 
5, 3, 6, 2, 3, 1, 1, 2, 2, 2, 1, 2, 0, 2, 5, 2, 3, 0, 2, 0, 2, 
0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 3, 3, 3, 1, 4, 1, 1, 1, 0, 1, 4, 
2, 3, 3, 0, 1, 1, 4, 3, 3, 3, 5, 1, 3, 1, 7, 5, 3, 6, 2, 1, 1, 
0, 6, 1, 1, 2, 3, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 
0, 3, 1, 9, 5, 5, 6, 5, 7, 1, 2, 2, 1, 1, 4, 1, 0, 2, 10, 5, 
7, 5, 8, 3, 7, 3, 6, 5, 4, 3, 3, 7, 2, 0, 4, 3, 0, 1, 1, 0, 5, 
0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 1, 1, 4, 
1, 0, 3, 4, 1, 3, 1, 1, 2, 1, 6, 6, 4, 4, 3, 2, 5, 2, 4, 3, 2, 
2, 4, 4, 2, 1, 2, 3, 1, 1, 2, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 1, 2, 1, 2, 3, 1, 0, 1, 2, 7, 4, 0, 3, 6, 0, 2, 4, 4, 10, 
6, 3, 7, 5, 5, 10, 3, 11, 5, 6, 12, 11, 10, 6, 9, 2, 5, 12, 9, 
2, 5, 1, 1, 4, 4, 1, 0, 0, 2, 1, 1, 3, 0, 1, 3, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 
2, 0, 3, 0, 2, 2, 1, 5, 3, 2, 1, 4, 3, 5, 6, 7, 2, 5, 4, 12, 
1, 3, 3, 3, 8, 3, 1, 6, 1, 1, 2, 3, 4, 0, 0, 1, 0, 3, 0, 0, 0, 
0, 0, 2, 1, 2, 0, 1, 2, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 
0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 2, 4, 4, 2, 4, 1, 3, 1, 6, 
4, 1, 3, 3, 3, 7, 4, 5, 5, 1, 6, 7, 3, 3, 3, 5, 4, 4, 3, 4, 3, 
1, 1, 3, 2, 1, 2, 1, 4, 4, 1, 1, 0, 0, 2, 2, 0, 1, 0, 3, 1, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 
1, 2, 1, 5, 0, 1, 3, 2, 3, 2, 0, 2, 3, 1, 3, 6, 3, 5, 4, 5, 4, 
6, 3, 9, 6, 4, 3, 9, 4, 4, 6, 3, 1, 2, 2, 7, 5, 1, 1, 4, 3, 6, 
1, 1, 0, 3, 4, 0, 1, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 3, 6, 6, 5, 4, 4, 5, 
6, 3, 6, 12, 1, 2, 6, 5, 8, 3, 10, 12, 7, 9, 6, 3, 11, 4, 13, 
7, 7, 12, 2, 1, 5, 3, 9, 11, 0, 9, 11, 0, 17, 3, 3, 0, 4, 6, 
3, 1, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 0, 1, 0, 0, 4, 1, 1, 3, 0, 1, 
0, 1, 1, 3, 2, 3, 1, 3, 6, 3, 0, 7, 4, 3, 3, 0, 1, 5, 2, 1, 1, 
2, 5, 1, 2, 3, 1, 5, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
1, 3, 3, 2, 2, 1, 1, 3, 1, 4, 3, 2, 1, 5, 3, 7, 5, 11, 3, 3, 
4, 11, 7, 7, 8, 5, 8, 7, 7, 9, 8, 2, 4, 8, 3, 0, 3, 10, 4, 7, 
0, 3, 0, 3, 4, 2, 0, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 4, 
1, 0, 1, 2, 2, 0, 3, 1, 3, 2, 5, 3, 3, 3, 4, 4, 8, 1, 6, 10, 
4, 8, 7, 8, 4, 6, 4, 5, 0, 3, 3, 1, 8, 2, 1, 0, 2, 1, 3, 1, 2, 
0, 2, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 2, 2, 4, 1, 2, 3, 3, 0, 2, 4, 3, 3, 2, 6, 7, 
6, 4, 6, 3, 5, 9, 13, 3, 5, 6, 4, 4, 9, 7, 11, 8, 3, 5, 15, 6, 
1, 5, 3, 8, 14, 4, 3, 0, 3, 4, 1, 2, 5, 0, 3, 4, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 1, 3, 3, 6, 0, 0, 1, 2, 2, 2, 2, 5, 5, 3, 12, 8, 4, 4, 
7, 3, 8, 10, 4, 4, 4, 13, 9, 8, 4, 5, 13, 9, 1, 6, 7, 3, 7, 3, 
0, 0, 1, 1, 1, 4, 3, 0, 4, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 2, 5, 0, 4, 3, 2, 
3, 3, 2, 0, 0, 3, 3, 4, 2, 11, 3, 4, 4, 7, 0, 7, 4, 9, 4, 2, 
4, 8, 4, 0, 0, 6, 9, 0, 2, 3, 4, 9, 0, 4, 0, 7, 2, 1, 1, 2, 0, 
3, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 1, 0, 2, 1, 1, 0, 1, 0, 2, 1, 1, 0, 3, 3, 1, 1, 1, 6, 3, 
2, 10, 1, 3, 6, 12, 1, 7, 8, 7, 13, 4, 2, 6, 6, 8, 2, 10, 9, 
1, 4, 7, 5, 12, 2, 2, 0, 6, 5, 5, 3, 1, 3, 5, 7, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 
0, 2, 4, 1, 3, 0, 0, 1, 3, 1, 2, 2, 1, 2, 3, 4, 6, 6, 4, 3, 2, 
5, 9, 7, 11, 9, 8, 6, 2, 5, 6, 5, 9, 8, 1, 3, 5, 3, 10, 3, 3, 
0, 4, 3, 4, 3, 4, 0, 2, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 4, 2, 2, 2, 
3, 1, 2, 0, 2, 1, 7, 4, 9, 1, 3, 1, 1, 2, 8, 8, 8, 8, 4, 6, 5, 
2, 4, 2, 6, 6, 0, 5, 4, 1, 8, 3, 1, 0, 3, 1, 2, 2, 0, 0, 4, 2, 
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 3, 0, 2, 1, 2, 2, 2, 
1, 1, 2, 5, 1, 2, 4, 3, 4, 0, 8, 6, 4, 0, 4, 2, 6, 0, 3, 5, 3, 
9, 3, 1, 0, 6, 5, 4, 3, 1, 1, 2, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
1, 0, 0, 0, 1, 0, 0, 2, 0, 0, 1, 5, 2, 1, 2, 3, 1, 4, 6, 5, 5, 
0, 2, 5, 2, 4, 0, 3, 4, 0, 0, 5, 1, 2, 1, 0, 0, 1, 1, 0, 0, 0, 
0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 1, 1, 0, 3, 1, 1, 1, 3, 3, 0, 0, 2, 5, 1, 2, 1, 6, 
4, 2, 12, 3, 3, 7, 9, 2, 8, 4, 15, 13, 6, 10, 9, 6, 2, 3, 5, 
8, 3, 8, 9, 7, 20, 6, 4, 0, 7, 6, 2, 2, 4, 1, 5, 2, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 1, 0, 2, 3, 1, 0, 2, 1, 3, 1, 2, 2, 1, 3, 3, 9, 4, 2, 5, 
11, 5, 3, 5, 6, 9, 9, 9, 8, 6, 6, 4, 8, 3, 2, 3, 6, 4, 14, 2, 
2, 0, 2, 4, 3, 4, 2, 2, 2, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 
0, 0, 2, 0, 1, 0, 1, 0, 1, 2, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 
1, 0, 0, 0, 3, 2, 0, 0, 4, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 2, 2, 1, 1, 
5, 0, 2, 1, 9, 2, 3, 3, 5, 6, 2, 4, 3, 5, 3, 0, 8, 3, 0, 1, 5, 
2, 6, 2, 2, 0, 1, 4, 4, 2, 1, 1, 2, 4, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 0, 1, 2, 
1, 1, 1, 1, 6, 2, 4, 3, 5, 3, 1, 2, 1, 1, 1, 4, 11, 3, 10, 3, 
3, 7, 3, 7, 5, 4, 5, 5, 9, 6, 4, 5, 4, 6, 14, 2, 4, 0, 8, 2, 
3, 2, 5, 3, 4, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 3, 0, 1, 
0, 2, 1, 0, 0, 1, 0, 4, 3, 0, 1, 4, 1, 8, 3, 4, 5, 3, 1, 3, 1, 
7, 4, 1, 2, 6, 4, 6, 7, 5, 0, 6, 1, 2, 4, 1, 2, 2, 6, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
1, 0, 0, 2, 2, 4, 2, 1, 6, 6, 6, 3, 5, 3, 1, 5, 0, 4, 3, 4, 6, 
17, 5, 7, 8, 14, 7, 9, 12, 10, 8, 9, 2, 20, 14, 1, 6, 14, 6, 
10, 5, 6, 0, 9, 9, 10, 7, 9, 4, 7, 10, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 1, 1, 3, 0, 0, 2, 4, 
3, 0, 2, 3, 3, 3, 1, 6, 2, 0, 2, 2, 7, 5, 0, 1, 0, 2, 1, 2, 1, 
1, 0, 3, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, 1, 0, 1, 0, 2, 
1, 1, 0, 1, 0, 1, 1, 3, 0, 3, 1, 3, 0, 4, 2, 3, 1, 1, 0, 4, 2, 
1, 2, 4, 5, 6, 1, 0, 0, 3, 1, 3, 4, 1, 2, 1, 6, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 1, 0, 2, 0, 0, 1, 
3, 1, 2, 1, 1, 0, 0, 0, 0, 3, 4, 0, 3, 2, 3, 1, 7, 6, 4, 3, 6, 
1, 7, 2, 0, 1, 8, 6, 9, 2, 3, 0, 0, 2, 2, 5, 2, 1, 2, 7, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 2, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 2, 0, 0, 0, 2, 2, 0, 2, 
4, 6, 1, 4, 1, 4, 1, 2, 5, 3, 1, 5, 1, 6, 4, 1, 4, 2, 1, 9, 1, 
1, 0, 2, 0, 1, 1, 1, 2, 1, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 
1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 2, 2, 0, 3, 1, 2, 3, 1, 1, 1, 5, 
4, 2, 4, 0, 2, 3, 0, 4, 3, 2, 10, 2, 3, 0, 2, 1, 0, 2, 2, 2, 
2, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 1, 1, 0, 1, 1, 0, 0, 1, 2, 4, 1, 3, 3, 2, 3, 0, 2, 4, 0, 2, 
2, 4, 7, 1, 4, 0, 5, 1, 2, 0, 2, 0, 3, 10, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
1, 1, 2, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 3, 2, 1, 0, 0, 0, 2, 
2, 5, 3, 2, 1, 4, 0, 1, 0, 4, 2, 1, 1, 5, 1, 9, 1, 1, 0, 2, 1, 
2, 2, 0, 2, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 1, 0, 
1, 2, 0, 1, 3, 2, 4, 0, 2, 0, 1, 2, 2, 0, 2, 0, 0, 3, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 1, 2, 0, 0, 2, 1, 1, 1, 0, 2, 1, 1, 0, 1, 1, 3, 2, 
4, 0, 1, 2, 3, 4, 3, 5, 2, 4, 2, 1, 5, 2, 1, 2, 4, 2, 7, 3, 1, 
0, 2, 1, 2, 3, 1, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 2, 0, 3, 2, 1, 0, 4, 0, 0, 7, 4, 3, 2, 7, 3, 
2, 7, 1, 2, 5, 0, 4, 3, 6, 10, 2, 6, 0, 7, 5, 3, 10, 4, 3, 4, 
6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), dim = c(75L, 75L), dimnames = list(
    c("2", "3", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
    "14", "15", "16", "18", "19", "20", "21", "22", "23", "24", 
    "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", 
    "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", 
    "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", 
    "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", 
    "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", 
    "75", "77", "79", "81"), c("2", "3", "5", "6", "7", "8", 
    "9", "10", "11", "12", "13", "14", "15", "16", "18", "19", 
    "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", 
    "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", 
    "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", 
    "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", 
    "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", 
    "70", "71", "72", "73", "74", "75", "77", "79", "81")))
bogh5gae

bogh5gae1#

您得到这些行是因为缺少值。数据中不表示整个范围。下面是使用tidyr填充缺少值的一种方法

library(dplyr)
library(tidyr)

full_range <- function(x) seq(min(x), max(x))
data %>% 
  as.data.frame() %>% 
  tibble::rownames_to_column("Var1") %>% 
  pivot_longer(-Var1, names_to="Var2") %>% 
  mutate(across(Var1:Var2, as.numeric)) %>% {
    d <- .
    expand_grid(Var1=full_range(d$Var1), Var2=full_range(d$Var2)) %>% 
      left_join(d) %>% 
      replace_na(list(value=0))
  } %>% 
  ggplot() +
  theme_bw() +
  geom_tile(aes(x = Var1, y = Var2, fill = value)) +
  scale_fill_viridis_c(name = "") +
  labs(x = "k2", y = "k1")

看起来像

相关问题