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

Question

我目前正在尝试使用ggplot2呈现两个时间序列，两者都有不同的比例，使用两个ggplots。我使用grid.arrange合并了两个单独的ggplots，一个在另一个之上。为了帮助实现可视化，我希望使每条线都成为不同的颜色，并在组合图下面显示这个图例。

由于这可能是相关的，我目前正致力于创建R降价文档的闪亮部分。因此，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"))})

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