r语言ggplot拟合曲线上添加p值

要在ggplot中添加拟合曲线的p值，可以使用ggpubr包中的stat_cor函数。以下是一个示例代码：

library(ggplot2)
library(ggpubr)

# 创建一个散点图
ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point()

# 添加拟合曲线和p值
ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  stat_smooth(method = "lm", se = FALSE) +
  stat_cor(aes(label = paste("r = ", ..r.., ", p = ", ..p..)), label.x = 3, label.y = 30)

在这个示例中，我们首先创建了一个简单的散点图，然后使用stat_smooth函数添加了一个线性拟合曲线。接下来，我们使用stat_cor函数添加了p值，其中aes(label = paste("r = ", ..r.., ", p = ", ..p..))指定了标签中包含相关系数和p值，label.x和label.y指定了标签的位置。