r语言在ggplot图中拟合二次曲线

要在ggplot图中拟合二次曲线，可以使用geom_smooth()函数。以下是一个示例代码，其中使用mtcars数据集，拟合mpg与disp之间的二次曲线：

library(ggplot2)

ggplot(mtcars, aes(x = disp, y = mpg)) +
  geom_point() +
  geom_smooth(method = "lm", formula = y ~ poly(x, 2), se = FALSE)

在这个代码中，使用了geom_point()函数来添加散点图，然后使用geom_smooth()函数来拟合二次曲线。参数method = "lm"表示使用线性模型进行拟合，而formula = y ~ poly(x, 2)则表示使用二次多项式进行拟合。最后，参数se = FALSE表示不显示拟合线的标准误差带。