R 如何在ggplot2中绘制成对比较（仅样本统计）

我想制作一个条形图，显示平均值、平均值的标准误差和显著的两两比较

类似于此：

我掌握的数据只是平均数和平均数的标准误差

group   x   mean   se of mean
a       1   3.650   0.092
a       2   4.232   0.081
a       3   3.653   0.068
a       4   3.871   0.13
b       1   3.984   0.07
b       2   4.150   0.073
b       3   4.058   0.054
b       4   4.010   0.132
c       1   2.915   0.1
c       2   3.475   0.1
c       3   3.246   0.086
c       4   3.069   0.16

---

有什么想法吗？

您可以使用软件包

ggsignif

（）绘制成对比较的重要性：

库（ggplot2）
图书馆（GGF）
#密谋
ggplot（mpg、aes（等级、高速公路））+
geom_箱线图（）+
几何符号(
比较=列表（c（“紧凑型”、“中型”）、c（“小型货车”、“suv”），
映射符号级别=真，
textsize=6
) +
叶利姆（NA，48）
#>wilcox.test.default中的警告（c（29,29,31,30,26,26,27,26,25,28，：
#>无法使用关系计算精确的p值

---

由（v0.2.1）

使用mpg数据于2018年10月5日创建，我想您想比较1999年class=minivan和2008年class=suv之间的hwy，这与您需要的类似

您可以添加一个新列以将两个变量粘贴在一起，创建类似minivan_1999、suv_2008的内容。使用

ggpubr:：stat_compare_means

，我将为您演示部分对：

mpg$detail <- paste(mpg$class, mpg$year, sep = "_")
my_comparison <- combn(unique(mpg$detail),2)
pairs <- list() # creating compairisons :list of pairs
for (i in 1:ncol(my_comparison)) {
  pairs[[i]] <- c(my_comparison[1,i], my_comparison[2,i])
}

ggplot(data = mpg, aes(x = detail, y = hwy, fill = detail)) +
  geom_boxplot(position = position_dodge(0.8)) +
  geom_point(position = position_jitterdodge()) + 
  stat_compare_means(comparisons = pairs[1:4]) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

---

mpg$detail谢谢！我几乎可以创建我想要的图表了，除了：comparations=list（c（“紧凑型”、“中型”）、c（“小型货车”、“suv”））.我无法参考我想要的具体对比度，因为我的x轴内有组。例如，我如何参考a组x=1与b组x=3之间的对比度？