r语言t检验并标注显著性字母

以下是一个示例代码，展示如何进行t检验并在图表中标注显著性字母：

# 生成数据
set.seed(123)
group1 <- rnorm(20, mean = 10, sd = 2)
group2 <- rnorm(20, mean = 12, sd = 2)

# 进行t检验
t.test(group1, group2)

# 绘制图表
library(ggplot2)
df <- data.frame(value = c(group1, group2),
                 group = rep(c("Group 1", "Group 2"), each = 20))
ggplot(df, aes(x = group, y = value)) +
  geom_boxplot() +
  stat_compare_means(aes(label = ..p.adj..),
                     label.x = c(1.5, 2.5),
                     label.y = c(11, 11),
                     method = "t.test",
                     paired = FALSE,
                     hide.ns = TRUE,
                     label = "p.signif") +
  theme_classic()

这段代码将生成两个随机正态分布的数据组，并对它们进行t检验。然后，使用ggplot2绘制了一个箱线图，并使用stat_compare_means()函数添加了显著性标签。这个函数使用t检验进行比较，并在图表中添加标签，表示显著性水平。标签中的字母表示组之间的显著性差异：小写字母表示p值小于0.05，大写字母表示p值小于0.01。在这个例子中，标签显示了组之间的显著性差异：p = 0.002。