R语言 折线图组间差异比较

如果要对折线图的组间差异进行比较，可以使用R语言中的t.test()函数进行两两比较，并将结果添加到折线图上。具体步骤如下：

1. 绘制折线图，使用ggplot2包中的geom_line()函数。
2. 使用stat_summary()函数计算每一组的均值和标准误差。
3. 使用t.test()函数进行两两比较，并将结果添加到折线图上，使用ggpubr包中的stat_compare_means()函数。

下面是一个示例代码：

library(ggplot2)
library(ggpubr)

# 生成示例数据
set.seed(123)
df <- data.frame(
  group = rep(c("A", "B", "C"), each = 5),
  value = rnorm(15, mean = rep(c(0, 1, 2), each = 5))
)

# 绘制折线图
ggplot(df, aes(x = group, y = value, group = 1)) +
  geom_line(aes(color = group)) +
  stat_summary(fun.data = mean_se, geom = "errorbar") +
  stat_summary(fun.y = mean, geom = "point", shape = 21, fill = "white", size = 3) +
  labs(x = "Group", y = "Value", color = "Group")

# 进行两两比较
p <- p + stat_compare_means(comparisons = list(c("A", "B"), c("B", "C"), c("A", "C")))
p