首先画热图
这个热图和常规的还稍微有点不太一样,可以简单的理解为带有缺失值的热图,缺失值是空白格,其他值分别填充颜色。...example_data/ggplot2_heatmap.csv",header=T)
以上数据是宽格式,借助reshape2这个包中的melt函数将宽格式转变为长格式
df1<-reshape2::melt(df)
ggplot2...画热图
library(ggplot2)
ggplot(df1,aes(x=variable,y=A))+
geom_tile(aes(fill=value),color="black")+
theme...接下来是美化
调整一下y轴的的顺序
df1$A<-factor(df1$A,levels = rev(df$A))
ggplot(df1,aes(x=variable,y=A))+
geom_tile...scale_fill_manual(values = c("white","red","red2","red4"))+
theme(panel.background = element_blank())
将X轴放到顶部