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参数的值，可以将星号放置在任何位置