图例使R中的多个绘图失去对齐

我正在尝试使用ggplot2在R中对齐多个绘图，以便x轴垂直对齐。但是，正如您所看到的，由于图例的大小不同，每个“x”轴的宽度也不同：

我现在使用的代码如下所示。我很乐意使用任何有效的技术，不一定是我现在使用的方法

th = theme(legend.key.width = unit(5, "cm"))

plots <- function() {
  ss <<- read_csv("support.csv")
  ww <<- read_csv("weight.csv")
  tt <<- read_csv("totals.csv")
  p1 <<- ggplot(data=ss, mapping=aes(t, support, colour=id)) + geom_line() + th
  p2 <<- ggplot(data=ww, mapping=aes(t, weight, colour=suppid)) + geom_line() + th
  p3 <<- ggplot(data=tt, mapping=aes(t, y, colour=total)) + geom_line() + th
  multiplot(p1, p2, p3, cols=1)
}

th=主题（legend.key.width=单位（5，“cm”））
绘图您看过
cowplot
软件包了吗？（奇怪的名字，我知道……但它可以处理考虑到边距和图例的对齐。@MelissaKey我试图安装
cowplot
，但它需要的R版本比我可以安装在我的计算机上的版本更高（2009年的MacBook Air）。请尝试
cowplot
、
egg
或
patchwork
软件包。查看此答案，例如@Tung I刚刚成功安装
egg
，以及
egg:ggarrange
正确对齐所有内容！现在了解如何缩小图例，因为它们占用了大部分窗口。但即使这样也可行！比ks！@Gregor请不要关闭此问题。与另一个问题的区别在于，在我的问题中，图例导致情节不对齐。我之前看过另一个问题，认为它不适用，因为那里的情节没有图例。