做一个类似热图的图

在论文中发现了这么一张图，我们准备用ggplot来做下这个图

首先，数据准备好，做长型的

用以下代码就可以出图了

mydata<-read.table("clipboard",sep="\t",header=T)
mydata$Module<-factor(mydata$Module,levels = c("M23","M22","M21","M20","M19","M18","M17","M16","M15","M14","M13","M12","M11","M10","M9","M8","M7","M6","M5","M4","M3","M2","M1"))
mydata$trait<-factor(mydata$trait,levels=c("NCF","DCF","IgG","AEA","Jejunal IgG"))

library(ggplot2)
ggplot(mydata,aes(trait,Module))+scale_y_discrete(limits=rev)+
  geom_point(shape=22,aes(fill=r,size=p.grade))+scale_fill_gradient2(low="#2366AB", high="#B41E2D", mid="white",midpoint=0)+
  theme_bw()

 

 图像要经过AI进一步修饰，就可以了