R-如何创建单列表格热图

我有一个有效的解决方案，但我是。我一直在使用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")

>库（gplots）
>m rownames（m）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值列上色，然后将它们粘贴在一起以获得最终的图形，但假设这样做看起来很马虎。欢迎任何步骤的建议。

使用ggplot2的解决方案：

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

请注意，heatmap.2（）不是来自package

ggplot2

的函数，而是来自package

gplots

的函数！我发布了一个带有ggplot2的解决方案。