使用分面ggplot 2.0.0和gridExtra排列通用绘图宽度
由于我已更新到ggplot2 2.0.0，因此无法使用gridExtra正确安排图表。 问题在于分面图表会被压缩，而其他图表会被展开。 宽度基本上是混乱的。 我想将它们排列成类似于这些单面图的方式：左对齐两个图形边（ggplot）
我把一个可重复的代码
library(grid) # for unit.pmax()
library(gridExtra)
plot.iris <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
geom_point() +
facet_grid(. ~ Species) +
stat_smooth(method = "lm")
plot.mpg <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) +
geom_point(size=2.5)
g.iris <- ggplotGrob(plot.iris) # convert to gtable
g.mpg <- ggplotGrob(plot.mpg) # convert to gtable
iris.widths <- g.iris$widths # extract the first three widths,
mpg.widths <- g.mpg$widths # same for mpg plot
max.widths <- unit.pmax(iris.widths, mpg.widths)
g.iris$widths <- max.widths # assign max. widths to iris gtable
g.mpg$widths <- max.widths # assign max widths to mpg gtable
grid.arrange(g.iris,g.mpg,ncol=1)
正如你将会看到的那样，最上面的图表，第一个面被扩展，而另外两个被压缩在右边。 底部图表不包括所有宽度。
难道是新的ggplot2版本与gtable宽度混淆？
任何人都知道解决方法？
非常感谢你
编辑：添加图表的图片
我正在寻找像这样的东西：
一种选择是将每个小区按摩到3x3 gtable中，其中中央细胞包裹所有小区面板。
使用@SandyMuspratt中的示例
# devtools::install_github("baptiste/egg")
grid.draw(egg::ggarrange(plots=plots, ncol=1))
其优点是，一旦采用这种标准化格式，绘图可以更容易地以各种布局进行组合，无论面板，图例，轴，条等的数量如何。
grid.newpage()
grid.draw(ggarrange(plots=list(p1, p4, p2, p3), widths = c(2,1), debug=TRUE))
我不确定你是否仍在寻找解决方案，但这是相当普遍的。 我正在使用ggplot 2.1.0（现在在CRAN上）。 它基于这个解决方案。 我把问题分成两部分。 首先，我处理图的左侧，确保轴材料的宽度相同。 这已经被其他人完成了，并且有关于SO的解决方案。 但我不认为结果看起来不错。 我希望面板也在右侧对齐。 其次，该过程确保面板右侧的列宽度相同。 它通过在每个图的右侧添加适当宽度的列来实现。 （有可能更好的方法来做到这一点，有 - 看到@baptiste解决方案。）
library(grid) # for pmax
library(gridExtra) # to arrange the plots
library(ggplot2) # to construct the plots
library(gtable) # to add columns to gtables of plots without legends
mpg$g = "Strip text"
# Four fairly irregular plots: legends, faceting, strips
p1 <- ggplot(mpg, aes(displ, 1000*cty)) +
geom_point() +
facet_grid(. ~ drv) +
stat_smooth(method = "lm")
p2 <- ggplot(mpg, aes(x = hwy, y = cyl, colour = factor(cyl))) +
geom_point() +
theme(legend.position=c(.8,.6),
legend.key.size = unit(.3, "cm"))
p3 <- ggplot(mpg, aes(displ, cty, colour = factor(drv))) +
geom_point() +
facet_grid(. ~ drv)
p4 <- ggplot(mpg, aes(displ, cty, colour = factor(drv))) +
geom_point() +
facet_grid(g ~ .)
# Sometimes easier to work with lists, and it generalises nicely
plots = list(p1, p2, p3, p4)
# Convert to gtables
g = lapply(plots, ggplotGrob)
# Apply the un-exported unit.list function for grid package to each plot
g.widths = lapply(g, function(x) grid:::unit.list(x$widths))
## Part 1: Make sure the widths of left axis materials are the same across the plots
# Get first three widths from each plot
g3.widths <- lapply(g.widths, function(x) x[1:3])
# Get maximum widths for first three widths across the plots
g3max.widths <- do.call(unit.pmax, g3.widths)
# Apply the maximum widths to each plot
for(i in 1:length(plots)) g[[i]]$widths[1:3] = g3max.widths
# Draw it
do.call(grid.arrange, c(g, ncol = 1))
## Part 2: Get the right side of the panels aligned
# Locate the panels
panels <- lapply(g, function(x) x$layout[grepl("panel", x$layout$name), ])
# Get the position of right most panel
r.panel = lapply(panels, function(x) max(x$r)) # position of right most panel
# Get the number of columns to the right of the panels
n.cols = lapply(g.widths, function(x) length(x)) # right most column
# Get the widths of these columns to the right of the panels
r.widths <- mapply(function(x,y,z) x[(y+1):z], g.widths, r.panel, n.cols)
# Get the sum of these widths
sum.r.widths <- lapply(r.widths, sum)
# Get the maximum of these widths
r.width = do.call(unit.pmax, sum.r.widths)
# Add a column to the right of each gtable of width
# equal to the difference between the maximum
# and the width of each gtable's columns to the right of the panel.
for(i in 1:length(plots)) g[[i]] = gtable_add_cols(g[[i]], r.width - sum.r.widths[[i]], -1)
# Draw it
do.call(grid.arrange, c(g, ncol = 1))
脱掉这两条线并保持休息，它就很好。
g.iris$widths <- max.widths # assign max. widths to iris gtable
g.mpg$widths <- max.widths # assign max widths to mpg gtable
可能它限制了它们的宽度。
链接地址: http://www.djcxy.com/p/68925.html上一篇: Arrange common plot width with facetted ggplot 2.0.0 & gridExtra