寫在前面
小有所成題目一，在第二天就已經(jīng)有一位朋友完成了，咱臥虎藏龍這居多。這兩位朋友已經(jīng)加入微生信生物VIP1群中。
目前還有兩道沒有人向我咨詢過，也就是說沒人弄出來？ 點擊此處查看題目詳細內(nèi)容 小有所成一答案這位朋友使用的策略是拼圖 library(reshape)
library(ggplot2)
library(cowplot)構(gòu)造數(shù)據(jù)#數(shù)據(jù)
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)
歡迎加入微生信生物快來微生信生物微生信生物 二師兄，何許人！小弟親師兄也，碩士畢業(yè)于2018年，你就看著他，就有數(shù)不清的意思。在枯燥乏味的科研生活中有著獨特的光芒，讓我膜拜。如果你感到無力，請關(guān)注二師兄，看看他能帶給你多少意思。
|
