小有所成题目一答案：nature高水平组组合图形绘制
写在前面
小有所成题目一，在第二天就已经有一位朋友完成了，咱卧虎藏龙这居多。这两位朋友已经加入微生信生物VIP1群中。
目前还有两道没有人向我咨询过，也就是说没人弄出来？
高手题目二
小有所成题目二
小有所成一答案
这位朋友使用的策略是拼图
library(reshape)
library(ggplot2)
library(cowplot)
构造数据
#数据
x<-matrix(rnorm(100),nrow=10)
rownames(x)<-paste0('r',1:10)
colnames(x)<-paste0('h',1:10)
h<-melt(x)
colnames(h)<-paste0('h',1:3)
h$size<-1
h$size[h$h3>1]<-2
h$size[h$h3<(-1)]<-3
气泡图部分绘制
#气泡图
k<-ggplot(h,aes(x=h1,y=h2,col=h3,size=size))+
theme(legend.position = "bottom", plot.background = element_rect(fill="white"),
panel.background = element_rect(fill='white', colour='gray'),
panel.grid.major = element_line(size=1,linetype =3,colour = "gray"),
strip.text.x=element_text(size=rel(1.2), family="serif", angle=-90),
strip.text.y=element_text(size=rel(1.2), family="serif") ,
axis.text.x = element_text(size = 14,color="black"),
axis.text.y = element_text(size = 20,color="black")
)+geom_point()+theme(axis.text.x = element_text(angle = 90, hjust = 1))+
scale_color_gradient2(low = "blue", mid = "white", high = "red")+scale_size_continuous(range=c(5,10))
顶部柱状图绘制
#柱状图
j<-ggplot(h, aes(h1,abs(h3)))+geom_bar(stat='identity',fill='red') +
scale_y_continuous(expand = c(0,0.02))+
theme(panel.background = element_rect(fill='white', colour='black'),
panel.grid.major = element_line(size=0,colour = "white"),
axis.text.x = element_blank(),panel.grid=element_blank()
)+xlab(NULL)
j
顶部柱状图绘制二
l<-ggplot(h, aes(h1,abs(h3)))+geom_bar(stat='identity',fill='blue') +
scale_y_continuous(expand = c(0,0.02))+
theme(panel.background = element_rect(fill='white', colour='black'),
panel.grid.major = element_line(size=0,colour = "white"),
axis.text.x = element_blank(),panel.grid=element_blank()
)+xlab(NULL)
l
拼图
#和图
ggdraw() +
draw_plot(k, 0,0, 1, 0.5)+
draw_plot(j, 0.02, 0.7, .97, 0.25) +
draw_plot(l, 0.02, 0.5, .97, 0.25)
欢迎加入微生信生物
快来微生信生物
轻松一刻 ◆ ◆
二师兄的日常
二师兄，何许人！小弟亲师兄也，硕士毕业于2018年，你就看着他，就有数不清的意思。在枯燥乏味的科研生活中有着独特的光芒，让我膜拜。如果你感到无力，请关注二师兄，看看他能带给你多少意思。