如何在R中使用带有分组条形图和facet_wrap的ggsignif时定义数据

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

library(ggplot2)
library(ggsignif)
library(dplyr)

# 创建示例数据集
data <- data.frame(Group = rep(c("A", "B", "C"), each = 3),
                   Factor = rep(c("X", "Y", "Z"), times = 3),
                   Value = c(10, 15, 12, 8, 11, 9, 14, 13, 16))

# 创建基础的条形图
plot <- ggplot(data, aes(x = Factor, y = Value, fill = Group)) +
  geom_bar(stat = "identity", position = "dodge") +
  facet_wrap(~ Group, nrow = 1)

# 计算统计量
summary_data <- data %>%
  group_by(Group, Factor) %>%
  summarize(mean_value = mean(Value),
            sd_value = sd(Value),
            n = n())

# 添加显著性标记
plot_with_signif <- ggsignif(plot, data = summary_data, x = "Factor", y = "mean_value",
                             comparisons = list(c("X", "Y"), c("X", "Z"), c("Y", "Z")),
                             test = "t.test", textsize = 4)

print(plot_with_signif)