R中

Question

我有以下矩陣創建熱圖想R中創建熱圖

E1 E2 P1 P2 
E1 1 0.73867 0.865486 0.708944 
E2  1 0.749623 0.949532 
P1   1 0.747194 
P2    1 

我用下面的代碼來實現它

acc<-read.csv("data.csv",header=TRUE,sep=",") 

row.names(acc)<-acc[,1] 

acc <- acc[,2:dim(acc)[2]] 

acc_matrix<-data.matrix(acc) 

acc_map <- heatmap_2(acc_matrix,Rowv=NA, Colv=NA, col = rev(heat.colors(256)),scale="none",legend=1) 

但即時得到錯誤如下

Error in `[.data.frame`(acc, , 1:dim(acc)[1]) : 
    undefined columns selected 

任何人都可以請幫助如何解決這個問題...

感謝

NI

Answer 1

下面是一個使用ggheat功能的解決方案。

mat <- matrix(NA,ncol=4,nrow=4) 
diag(mat) <- 1 
library(gdata) 
upperTriangle(mat) <- runif(6) 
colnames(mat) <- rownames(mat) <- c("E1","E2","P1","P2") 
ggheat(mat)