r - 在两个组合的ggplots之间共享一个图例

Question

我目前正在尝试使用 ggplot2 呈现两个时间序列，它们都具有非常不同的比例，使用两个 ggplots。我使用grid.arrange. 为了帮助可视化，我想让每条线都有不同的颜色，并在组合图下方有这个图例。

由于这可能是相关的，我目前正在创建 R markdown 文档的闪亮部分。因此，renderPlot 包装器围绕grid.arrange.

以下类似于我目前拥有的代码。

testdata = data.frame(var1 = seq(0,10,by=1), var2 = runif(11), 
var3 = runif(11, min = 100, max = 500))

renderPlot({grid.arrange(
ggplot(data = testdata, aes(x = var1, y = var2))
+ geom_line(colour = "blue") + xlab(NULL),
ggplot(data = testdata, aes(x = var1, y = var3)) + geom_line(colour = "red"))})

有人对如何创建共享图例有任何建议吗？非常感谢您的帮助。