Question

我有一个看起来像这样的数据框：

df <- data.frame(Test = c("A", "A", "A", "A", "B", "B", "B", "B"),
                 Platform = c("Foo", "Foo", "Bar", "Bar"),
                 Result = c(1, 2, 7, 6, 11.4, 5.5, 9.3, 9.4)
                 )

我正在使用dplyr

收集一些基本统计信息

stats <- summarise(group_by(df, Test, Platform), 
                    Mean = mean(Result), 
                    SE = sd(Result)/sqrt(length(Result)))

然后使用ggplot2和facet_wrap绘制它

ggplot(stats, aes(x = Platform, y = Mean)) +
  geom_bar(aes(fill = Platform), stat = "identity") +
  facet_wrap(. ~ Test, scales = "free") +
  geom_errorbar(aes(ymin = Mean-SE, ymax = Mean+SE), width = 0.3)

我想使用ggsignif

为图表添加有意义的符号

我遇到的问题是我无法弄清楚如何使ggsignif对Results中的df的{{1}}进行t测试}和Test，因为该图实际上是Platform的图。

结果图应显示stats的{{1}}和Foo为有效，而Bar的{{1}}和A为无效

将ggsignif与平均值图结合使用

0 个答案: