R语言ggplot拟合曲线添加方程、R方、p值并换行

要在ggplot中添加方程和R方和p值，可以使用ggpubr包中的stat_regline_equation()函数。在ggplot中，您可以使用以下代码来添加方程和R方和p值并紧密换行：

library(ggplot2)
library(ggpubr)

# 创建数据
x <- 1:10
y <- 2*x + 3 + rnorm(length(x), 0, 1)
df <- data.frame(x, y)

# 创建ggplot
ggplot(df, aes(x, y)) +
  geom_point() +
  stat_smooth(method="lm") +
  stat_regline_equation(
    aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")), 
    formula = y ~ x, label.x.npc = "right", label.y.npc = 0.15) +
  theme_bw()

在上面的代码中，stat_regline_equation()函数用于添加方程和R方和p值。在此函数中，我们使用aes()函数来指定标签。我们使用label选项来指定标签中的文本。我们使用sep选项来指定文本之间的分隔符。我们还指定标签的位置，使用label.x.npc和label.y.npc选项。

最后，我们使用theme_bw()函数来指定ggplot的主题。