用拼凑的方式组合和合并 ggplot2 中的图例

我想结合两个或多个情节来融合他们的传奇。

例如，我可以创建一些数据和两个场景，如下所示。

# packages
library(ggplot2)
library(patchwork)

# first plot
set.seed(07042020)
x <- runif(50)
y <- runif(50)
data1 <- data.frame(x = x, y = y, z = runif(50, 0, 2))
p1 <- ggplot(data1) + geom_point(aes(x, y, col = z))
p1

data2 <- data.frame(x = x, y = y, z = runif(50, -1, 1))
p2 <- ggplot(data2) + geom_point(aes(x, y, col = z))
p2

以下代码是我到目前为止尝试过的，但它不是预期的结果。我想将两个图合并为一个图例，即创建一个独特且通用的图例“z”，以便两个图的点根据这个通用图例进行着色。这可能吗？

p1 + p2 + plot_layout(guides = "collect")

^{Created on 2020-04-07 by the reprex package https://reprex.tidyverse.org (v0.3.0)}

我认为两个图例只有在具有完全相同的属性时才能组合，即共享限制、标题、标签、中断等。 您可以通过共享通用比例来提供通用图例，拼凑中实现此目的的一种方法是使用&运算符，这意味着“将其应用于所有以前的图”：

p1 + p2 + plot_layout(guides = "collect") & 
  scale_colour_continuous(limits = range(c(data1$z, data2$z)))

唯一的缺点是您可能必须手动指定限制作为比例p1不知道中的值p2.