data <- as.data.frame(matrix(rnorm(9*10),9,10))
rownames(data) <- paste("Gene", 1:9, sep="_")
colnames(data) <- paste("sample", 1:10, sep="_")
library(reshape2)
library(ggplot2)
data$ID <- rownames(data)
data_m <- melt(data, id.vars=c("ID"))
View(data_m)
p <- ggplot(data_m, aes(x=variable,y=ID)) +
xlab("samples") + theme_classic() + theme(axis.ticks = element_blank(),
axis.line = element_blank()) +
theme(panel.grid.major = element_blank()) +
theme(legend.key=element_blank()) +
theme(axis.text.x=element_text(angle=45,hjust=1, vjust=1)) +
theme(legend.position="top") +
geom_tile(aes(fill=value)) +
scale_fill_gradient2("Expression",
low = "green",
high = "red",
mid = "black")
p
大神Y叔也有画热图的ggplot2讲解,链接:听说你还不会画heatmap
https://guangchuangyu.github.io/cn/2017/09/dose-simplot/