传说抛弃了R中多个图的对齐

Question

我尝试使用ggplot2对齐R中的多个绘图，以便 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)
}

从cookbook-r.com复制multiplot。如您所见，我尝试设置图例的宽度不起作用。我确实需要看到这些传说，以便我可以分辨出哪一行（或者至少对中间图进行了有根据的猜测）。