在减淡的ggplot2箱图中添加组内和组间的显著性条形图

install.packages("ggplot2")
install.packages("dplyr")
library(ggplot2)
library(dplyr)

set.seed(123)
data <- data.frame(x = rnorm(100), group = rep(c("A", "B", "C"), each = 33))

p <- ggplot(data, aes(x = group, y = x, fill = group)) +
     geom_boxplot(fill = "lightgray", alpha = 0.5)

stats <- data %>%
         group_by(group) %>%
         summarise(mean = mean(x), se = sd(x)/sqrt(length(x)))

p <- p + geom_errorbar(data = stats, aes(x = group, ymin = mean - se, ymax = mean + se),
                       width = 0.2, color = "black", alpha = 0.9)

p <- p + theme_bw() +
     labs(x = "Group", y = "Value") +
     theme(legend.position = "none")

print(p)