R语言ggplot添加回归方程

你可以使用`ggplot2`和`geom_smooth()`函数来添加回归方程。下面是一个例子：

首先，我们需要载入`ggplot2`包和一个示例数据集`mtcars`：

library(ggplot2)
data(mtcars)

然后，我们可以使用`geom_point()`函数来绘制散点图：

ggplot(mtcars, aes(x = wt, y = mpg)) + 
  geom_point()

接下来，我们使用`geom_smooth()`函数来添加回归曲线，并且设置`method = "lm"`来使用线性模型进行拟合：

ggplot(mtcars, aes(x = wt, y = mpg)) + 
  geom_point() +
  geom_smooth(method = "lm", se = FALSE)

最后，我们可以使用`geom_text()`函数来添加回归方程的公式：

ggplot(mtcars, aes(x = wt, y = mpg)) + 
  geom_point() +
  geom_smooth(method = "lm", se = FALSE) +
  geom_text(aes(x = 5, y = 30, label = paste("y = ", round(coef(lm(mpg ~ wt, data = mtcars))[2], 2), "x +", round(coef(lm(mpg ~ wt, data = mtcars))[1], 2))))

这将在图形中添加回归方程的公式，公式的位置可以使用`x`和`y`参数进行调整。