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。。在任何步驟的建議表示讚賞。
注意heatmap.2()不是一個函數從包'ggplot2',但是從包裝'gplots'!我用ggplot2發佈了一個解決方案。 – ddiez 2014-10-08 04:41:41