2012-01-20 61 views
0

我的問題是類似於下面的文章中,我唯一需要的是把每一個插曲的標題每一圖片下面,而不是在頂部。從巴蒂斯特工作正常,但,我只有兩個數字,我希望他們並排ggplot的multiplot - 保持標題底部

Place title of multiplot panel with ggplot2

建議。

p = qplot(1,1) 
lp = list(p,p) 
ll = list("sub 1", "sub 2") 
plotlist <- mapply(arrangeGrob, lp, sub=ll, SIMPLIFY=FALSE) 
do.call(grid.arrange, plotlist) 

感謝

+0

你的意思是爲每個情節一個標題,或網頁一個全球標題? – baptiste

+0

'do.call(grid.arrange,C(plotlist,列表(NcoI位= 2)))' – baptiste

+0

感謝。工作正常。 – learner

回答

4
library(gridExtra) 

p = qplot(1, 1) 
grid.arrange(p, p, p, p, sub = textGrob("TITLE BELOW", gp=gpar(cex=2))) 

sub

ggplot2沒有一個 「子」 的參數,所以我們總結各小區使用arrangeGrob一個gTree,結合下面的文本標籤的情節。最後,在頁面上安排複合grobs。

lp = list(p, p, p, p) 
ll = list("sub 1", "sub 2", "sub 3", "sub 4") 

plotlist <- mapply(arrangeGrob, lp, sub=ll, SIMPLIFY=FALSE) 
do.call(grid.arrange, plotlist) 

sub2

+0

我的代碼如下:我需要的數字並排側不低於一個其他的。 lp = list(g1,g2) ll = list(「sub 1」,「sub 2」) plotlist < - mapply(arrangeGrob,lp,sub = ll,SIMPLIFY = FALSE) do.call(grid.arrange, plotlist) – learner

+0

*請*提供了一個可重複的例子,你的問題描述清楚 – baptiste