2014-10-07 78 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()