ggplot2のマージン/フィギュア領域の幅を整列/設定する

Question

私はお互いの下にいくつかのプロットを配置する必要があり、マージンとFigure領域の幅をきちんと整列させたいと思います。私は2つの単一プロットが必要であり、1つのプロットプロットは必要ないことに注意してください。私は別々のPNGファイルにそれぞれを保存したい。私はちょうどそれらの構造（マージン、図の領域のサイズ）を同一にしたい。

library(ggplot2) 

d <- data.frame(label=c("some very longe label with lots of text", 
         "another long label with lots of text", 
         "short", 
         "also short", 
         "          short", 
         "        also short"), 
         x = 1:6) 

ggplot(d[1:2, ], aes(label, x)) + geom_bar(stat = "identity") + coord_flip() 
ggplot(d[3:4, ], aes(label, x)) + geom_bar(stat = "identity") + coord_flip() 

私が欲しいのは、余分な空白を追加することなく、当然のことながら、多かれ少なかれ以下のように、プロット1と同じ左マージン幅を持っているプロット2である。）

ベースグラフィックでは、それに応じてpar("mar")を設定します。

これをggplotでどうすれば達成できますか？

Answer 1

last link from the comment aboveからの回答に基づいて、 は、プロットの幅を同じにすることができます。その答えとの唯一の違いは、それらが結合されていないということです。あなたのプロットに対してそう

library(ggplot2) 
p1 <- ggplot(d[1:2, ], aes(label, x)) + geom_bar(stat = "identity") + coord_flip() 
p2 <- ggplot(d[3:4, ], aes(label, x)) + geom_bar(stat = "identity") + coord_flip() 

同一視プロットの幅

library(grid) 
gl <- lapply(list(p1,p2), ggplotGrob) 
wd <- do.call(unit.pmax, lapply(gl, "[[", 'widths')) 
gl <- lapply(gl, function(x) { 
     x[['widths']] = wd 
     x}) 

プロット生成

grid.newpage(); grid.draw(gl[[1]]) 
grid.newpage(); grid.draw(gl[[2]]) 

：

プロットを1

プロット2