如何在具有 2 个不同数据集的 plot 中使用 ggplot2 添加平滑线

Question

我正在尝试使用 2 个不同的数据集和每个散点的平滑线来制作散点 plot 以比较它们。

我可以单独做，但由于某种原因，当两者都在同一个 plot 时我不能这样做（我知道这可能是我缺乏编码知识）

我正在尝试这个也许有人可以指出我的错误

df1 <- data.frame("x1"=1:25, "y1"=rnorm(25))
df2 <- data.frame("x2"=1:25, "y2"=rnorm(25))
ggplot()+geom_point(data=df1,aes(x=x1,y=y1),size=2,shape=23,color="blue")+
  geom_point(data=df2,aes(x=x2,y=y2),size=2,shape=23,color="red")+geom_smooth(se=F)

感谢所有的帮助

编辑：我按照建议添加了可行的数据

Answer 1

它与其他geom基本相同。 将每个 dataframe 传递给单独的geom_smooth并定义映射或美学：

library(ggplot2)
set.seed(42)
df1 <- data.frame("x1"=1:25, "y1"=rnorm(25))
df2 <- data.frame("x2"=1:25, "y2"=rnorm(25))
ggplot()+
  geom_point(data=df1,aes(x=x1,y=y1),size=2,shape=23,color="blue")+
  geom_point(data=df2,aes(x=x2,y=y2),size=2,shape=23,color="red")+
  geom_smooth(data=df1,aes(x=x1,y=y1), se=F) +
  geom_smooth(data=df2,aes(x=x2,y=y2), se=F)
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'