使用不同的图形在一个图中组合来自2个数据帧的数据

Question

我想在一个图形中组合折线图和散点图。数据来自不同的数据帧，并且列具有不同的名称。这是我的可复制示例，它引发错误：

library(ggplot2)

x <- runif(1000, min = 0, max = 100)
y <- rnorm(1000, mean = 50, sd = 30)
df1 <- data.frame(
      x = x
      , y = y
)

x1 <- runif(10, min = 0, max = 100)
y1 <- rnorm(10, mean = 50, sd = 30)
df2 <- data.frame(
      x1 = x1
      , y1= y1
)

ggplot(df1, aes(x, y)) +
    geom_line() +
    geom_point(df2, aes(x1, y1))

Answer 1

尝试分别在每个geom_*上上传数据：

ggplot() +
  geom_line(data = df1, aes(x, y), color = "grey") +
  geom_point(data = df2, aes(x1, y1), color = "red")