当从两个数据框构建绘图时有两个图例

我有两个这样的数据框：

library(ggplot2)

set.seed(1)
x1 = rnorm(100)
y1 = rnorm(100)

x2 = rnorm(100)
y2 = rnorm(100)

df1  = data.frame(x=x1, y=y1, col1 = rep(1:4, each = 25))
df2 = data.frame(x=x2, y=y2, col2 = rep(5:8, each = 25))

我绘制了这些数据：

ggplot() +
  geom_point(aes(x = x1, y = y1,  colour = as.factor(col1)), data = df1, size = 1, shape = 19) +
  geom_point(aes(x = x2, y = y2,  colour = as.factor(col2)), data = df2, size = 2, shape = "\u2605")

结果是这样的：

如何为每个数据框获取两个单独的图例？ 图例还应该正确反映所使用的形状，并让我为每个图例指定图例标题。

我知道这个解决方案 https://stackoverflow.com/questions/38907371/ggplot-legends-when-plot-is-built-from-two-data-frames存在，但它相当旧并且需要可以填充的符号，我想使用自定义 unicode 符号。

这可以通过以下方式实现ggnewscale包允许具有相同美学的附加比例和图例。尝试这个：

library(ggplot2)

set.seed(1)
x1 = rnorm(100)
y1 = rnorm(100)

x2 = rnorm(100)
y2 = rnorm(100)

df1  = data.frame(x=x1, y=y1, col1 = rep(1:4, each = 25))
df2 = data.frame(x=x2, y=y2, col2 = rep(5:8, each = 25))

ggplot() +
  geom_point(aes(x = x1, y = y1,  colour = as.factor(col1)), data = df1, size = 1, shape = 19) +
  ggnewscale::new_scale_color() +
  geom_point(aes(x = x2, y = y2,  colour = as.factor(col2)), data = df2, size = 2, shape = "\u2605")