写在前面
image
小有所成题目一，在第二天就已经有一位朋友完成了，咱卧虎藏龙这居多。这两位朋友已经加入微生信生物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<-1h$size[h$h3>1]<-2h$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))
image
顶部柱状图绘制
#柱状图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
image
顶部柱状图绘制二
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
image
拼图
#和图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)
image
欢迎加入微生信生物
image.gif
快来微生信生物
微生信生物
轻松一刻**** ◆ ◆
二师兄的日常
二师兄，何许人！小弟亲师兄也，硕士毕业于2018年，你就看着他，就有数不清的意思。在枯燥乏味的科研生活中有着独特的光芒，让我膜拜。如果你感到无力，请关注二师兄，看看他能带给你多少意思。
image