2014-10-07 57 views
1

我有一个工作解决方案,但我。我一直在使用mtcars数据集,并尝试用“disp”变量作为我可重现的例子进行着色。R如何创建单列表热图

> 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值是整个种群Fisher精确差),但这将在500个值的整个表上添加大量的处理(现在只是打印一个巨大的pdf)。我可以单独着色p值列并将它们粘贴在一起以获得最终数字,但假设这看起来很sl。。在任何步骤的建议表示赞赏。

+0

注意heatmap.2()不是一个函数从包'ggplot2',但是从包装'gplots'!我用ggplot2发布了一个解决方案。 – ddiez 2014-10-08 04:41:41

回答

1

与GGPLOT2 A液:

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