首先是读入数据
dfggplot2_heatmap.csv",header=T)
以上数据是宽格式,借助reshape2这个包中的melt函数将宽格式转变为长格式...df1<-reshape2::melt(df)
ggplot2画热图
library(ggplot2)
ggplot(df1,aes(x=variable,y=A))+
geom_tile(aes...接下来是美化
调整一下y轴的的顺序
df1$A<-factor(df1$A,levels = rev(df$A))
ggplot(df1,aes(x=variable,y=A))+
geom_tile...轴放到顶部
ggplot(df1,aes(x=variable,y=A))+
geom_tile(aes(fill=value1),color="black")+
scale_fill_manual...上面的图还忘记添加文字标签了,下面补上
ggplot(df1,aes(x=variable,y=A))+
geom_tile(aes(fill=value1),color="black")+
scale_fill_manual