Question

我有一个有效的解决方案，但是。我一直在使用mtcars数据集并尝试使用“disp”变量作为我可重复的示例进行着色。

    > library(gplots)
    > m<-cbind(mtcars[,3],mtcars[,3])
    > rownames(m)<-rownames(mtcars)
    > heatmap.2(x=m,dendrogram="none",trace="none",Colv=FALSE,Rowv=FALSE,cellnote=cbind(rownames(m),rownames(m)),notecol="black")

我总是可以删除pdf的额外行，用我实际数据集中p值的表示替换（绘图比率和p值是渔民与整个人口的精确差异），但这会增加一个500个值的全表上的大量处理（现在只是打印一个巨大的长度pdf）。我可以单独为p值列着色并将它们粘贴在一起作为最终图，但假设这看起来很草率。欢迎任何一步的建议。

Answer 1

使用ggplot2的解决方案：

d=as.data.frame.table(m[,1,drop=FALSE])
ggplot(d,aes(x=Var2,y=Var1,fill=Freq)) + geom_tile()

R-如何创建单列表热图

1 个答案: