R 绘制包括NA在内的热图
我正在绘制以下csv文件的热图:R 绘制包括NA在内的热图,r,plot,R,Plot,我正在绘制以下csv文件的热图: "people","1","2","3","4","5","6","7","8","9" "Ej1",0,0,0,1,0,1,1,1,0 "Ej2",0,1,1,0,0,0,1,1,0 "Ej3",0,1,1,1,0,0,0,1,1 "Ej4",0,1,0,0,1,1,0,0,1 "Ej5",1,0,1,1,0,1,1,1,1 "Ej6",1,1,0,1,1,1,0,0,0 "Ej7",0,1,1,0,0,0,0,1,1 "Ej8",0,0,1,1,1,1,1,
"people","1","2","3","4","5","6","7","8","9"
"Ej1",0,0,0,1,0,1,1,1,0
"Ej2",0,1,1,0,0,0,1,1,0
"Ej3",0,1,1,1,0,0,0,1,1
"Ej4",0,1,0,0,1,1,0,0,1
"Ej5",1,0,1,1,0,1,1,1,1
"Ej6",1,1,0,1,1,1,0,0,0
"Ej7",0,1,1,0,0,0,0,1,1
"Ej8",0,0,1,1,1,1,1,0,0
"Ej9",1,1,0,0,1,0,0,1,1
使用下面的代码,我得到下面的热图,效果很好
library(reshape2)
library(ggplot2)
library(scales)
library(plyr)
data <- read.csv("fruits2.txt", head=TRUE, sep=",")
data$people <- factor(data$people,levels=rev(data$people))
data.m = melt(data)
#data.m <- ddply(data.m, .(variable), transform, rescale = rescale(value))
data.m[,"rescale"]<-rescale(data.m[,"value"],to=c(0,1))
fewer.labels <- c("Ej9","Ej8","Ej7","Ej6","Ej5","Ej4","Ej3","Ej2","Ej1")
p <- ggplot(data.m, aes(variable, people)) +
geom_tile(aes(fill = rescale), colour = "white") +
scale_y_discrete(labels=fewer.labels) +
scale_fill_gradient(low = "red", high = "green") +
theme(axis.text=element_text(size=8))
如果未在
melt
中指定id
变量,则people
和column8
都将被视为id,并且会在数据的变量列中释放X8。然后,不会在热图中绘制变量X8
使用melt(data,id='people')
应该可以解决这个问题
"people","1","2","3","4","5","6","7","8","9"
"Ej1",0,0,0,1,0,1,1,NA,0
"Ej2",0,1,1,0,0,0,1,NA,0
"Ej3",0,1,1,1,0,0,0,NA,1
"Ej4",0,NA,0,0,NA,1,0,NA,1
"Ej5",1,0,1,1,0,1,1,NA,1
"Ej6",1,1,0,1,1,1,0,NA,0
"Ej7",0,1,1,0,0,0,0,NA,1
"Ej8",0,0,1,1,1,1,1,NA,0
"Ej9",1,1,0,0,1,0,0,NA,NA