在论文中发现了这么一张图,我们准备用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进一步修饰,就可以了