r - ggplot2を使用して、ポイントの少ない行を追加します

Question

ポイントの少ない行を追加しようとしています。私が試してみました：

library(ggplot2)
df <- data.frame(x=c(1:50),y=c(1:50)*2+5)
df2 <-  data.frame(x=c(20,30,40),y=c(40,60,80))
plot1 <- ggplot(df , aes(x=x, y=y)) + geom_line()
plot2 <- plot1+ geom_line( aes(x=df2$x, y=df2$y))
plot2    

しかし、これは機能しません。

Answer 1

2番目の呼び出しの引数に渡しdf2て、マッピングを少し変更することができますdatageom_line

plot2 <- plot1+ geom_line( aes(x=x, y=y), data = df2)