对齐单独绘图的尺寸

Question

cowplot 和 pathwork 等包允许对齐不同的图 下一个/在彼此上，绘图区域尺寸同步，无论所需的空间如何 轴标签。 例如

install.packages("ggridges")
install.packages("patchwork")
library(tidyverse)
library(ggridges)
library(patchwork)
p1 <- ggplot(iris, aes(Sepal.Length, Species)) + 
    geom_density_ridges() 
p2 <- ggplot(mtcars) + 
    geom_point(aes(mpg, disp))
p1 + p2  + plot_layout(ncol=1)  #different length of y axis label, same plot area size.

这对于 html 显示来说都是很好的。 但是，对于期刊，我和许多其他人需要制作“独立”的情节。 图表显示来自不同来源的数据并具有不同的轴标签长度。 为了获得专业的外观，这些地块还需要具有相同的地块大小。 在文章格式中，它们通常会出现在相同格式的页面但它们之间有文本的情况下，并且

那么，我如何使它们需要完全“对齐”（如上例所示），但可以说是单独的 r 个对象。

我怎样才能做到这一点？

Answer 1

在cowplot 内部，有一个函数align_margin 可以在ggplot grobs 列表中对齐左右边距。

我们还包括了一些图：

p1 <- ggplot(iris, aes(Sepal.Length, Species)) + 
    geom_density_ridges() 
p2 <- ggplot(mtcars) + 
    geom_point(aes(mpg, disp))
p3 <- ggplot(PlantGrowth) + 
    geom_boxplot(aes(group, weight))
p4 <- ggplot(USArrests) + 
    geom_point(aes(Assault, UrbanPop))

对the vignette做了一些细微的修改：

grobs <- lapply(list(p1, p2, p3,p4), as_grob)
plot_widths <- lapply(grobs, function(x) {x$widths})
aligned_widths <- align_margin(align_margin(plot_widths, "first"),"last")
# reset widths
for (i in seq_along(plots)) {
       grobs[[i]]$widths <- aligned_widths[[i]]
     }

在一个页面中获取所有内容：

plot_grid(plotlist = grobs, ncol = 1)

获取个人：

grid.draw(grobs[[1]])