r - 在ggplot2下，拼凑扩展对齐在组成对齐图时会产生错误

Question

我有一个关于 ggplot2 非常方便的拼凑扩展的问题。在下面的块中，我想知道为什么我用### 标记的行给我这个错误：grid.Call.graphics 中的错误（C_setviewport，vp，TRUE）：'layout.pos.row'不正确

任何帮助将不胜感激 最好的，大卫

p1 <- ggplot(msleep) + 
geom_boxplot(aes(x = sleep_total, y = vore, fill = vore)) +
p3 <- ggplot(msleep) + 
geom_point(aes(x = bodywt, y = sleep_total, colour = vore), size = 3, alpha = 0.7)

p1_bis <- p1 + theme(legend.position = "none")
p3_dims <- get_dim(p3)
p1_aligned <- set_dim(p1_bis, p3_dims)
p1_aligned
p1 + p1_aligned ###

plots_aligned <- align_patches(p1, p2, p3, p4)
for (p in plots_aligned)
  plot(p)

plots_aligned[[1]] + plots_aligned[[2]] ###