如何在R中制作适合此数据的曲线

Question

我需要一条曲线，用R语言描述这个散点图中X和Y之间的关系

Answer 1

以下是一个例子：

X <- sample(1:20, 100, replace = TRUE, prob = c(.3, .2, .1, .1, rep(.05, 4), rep(.1/12, 12)))
Y <- rnorm(100, 50, 10)
df <- data.frame(X, Y)

library(ggplot2)
ggplot(df, aes(x = X, y = Y)) +
  geom_point() +
  geom_smooth(method = "loess")