ggplot2 中 geom_smooth 线性拟合添加显著性星号

在 ggplot2 中使用 geom_smooth 函数时，可以通过指定 method 参数为 'lm' 来进行线性拟合，并通过指定 se 参数为 TRUE 来显示置信区间。然后可以使用 annotate 函数来添加显著性星号，例如：

library(ggplot2)

# 创建一个数据集
df <- data.frame(x = 1:10, y = c(2, 4, 6, 8, 10, 12, 14, 16, 18, 20))

# 绘制散点图并添加线性拟合线和置信区间
p <- ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  geom_smooth(method = 'lm', se = TRUE)

# 添加显著性星号
p + annotate('text', x = 5, y = 15, label = '*', size = 10)

在上面的代码中，annotate 函数用于添加文本标注，其中 x 和 y 参数指定标注的位置，label 参数指定标注的文本内容，size 参数指定标注的字体大小。通过调整 x 和 y 参数的值，可以将星号放置在任何位置。