1.利用facet_grid
代碼如下：
準(zhǔn)備數(shù)據(jù)
ini<-read.table('ini')
fina<-read.table('finalTOP10')
t1<-ini[1,c(1:8)]
t2<-fina[1,c(1:8)]
ti<-data.frame(table(ini[,1]))
tf<-data.frame(table(fina[,1]))
tiDynaOrNot<-1
temp<-rbind(ti,tf)
tempDynaOrNot<-0
tfName<-paste('Rank',i,seq="")
temp<-rbind(temp,t)
}
利用Name區(qū)分分面，其中Name.代表分面標(biāo)簽在右，.Name代表分面標(biāo)簽在上
ggplot(temp)+
geom_bar(aes(x=Var1,y=as.numeric(Freq),fill=factor(DynaOrNot)),position='dodge',stat="identity")+labs(x='parameter',y="Frequency")+
labs(x="Parameter",y="Frequency")+
facet_grid(Name~.,scales = 'free')
2.利用cowplot包
library(cowplot)
for(i in c(2:10)) {
準(zhǔn)備數(shù)據(jù)
ti<-data.frame(table(ini[,i]))
tf<-data.frame(table(fina[,i]))
tiDynaOrNot<-1
t<-rbind(ti,tf)
t$Name<-paste('Rank',i,seq="")
temp<-t
將繪圖整合在一起
plots[[i]]<-ggplot(t)+geom_bar(aes(x=Var1,y=as.numeric(Freq),fill=factor(DynaOrNot)),position='dodge',stat="identity")+labs(x='parameter',y="Frequency")+ggtitle(paste('rank',i,seq=""))
這個(gè)是關(guān)鍵代碼措左，只有一行
plot_grid(plotlist = plots)
3.利用gridExtra包
與2相同鹦筹，只是最后紅色代碼變?yōu)?br>
library(gridExtra)
grid.arrange(plots[[1]]...plots[[10]],ncol=1,nrow=10)
