要在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的主题。