如何在ggplot分组面板中按mean排序并显示均值标签

1. 按mean列对facet面板排序 #

要让facet_grid的面板按mean列排序，核心是把variable列转换成有序因子，排序依据为各variable对应的mean值。假设你已得到聚合后的均值数据集（命名为mean_data，包含variable和mean列），可按以下方式处理：

# 按mean值对variable排序并转换为因子
inten$variable <- factor(inten$variable, 
                         levels = mean_data$variable[order(mean_data$mean)],
                         ordered = TRUE)

之后运行原ggplot绘图代码，facet_grid(~variable)就会按照mean的升序排列面板；若需降序，将order(mean_data$mean)改为order(desc(mean_data$mean))即可。

2. 在每个面板显示对应均值 #

利用聚合后的mean_data数据集，通过geom_text在面板指定位置添加均值文本，两种常见场景的实现方式如下：

场景1：在面板顶部居中显示该面板的总均值 #

# 原绘图代码基础上添加均值文本图层
ggplot(inten, aes(x = group, y = value)) +
  geom_col() + # 你的柱状图图层
  facet_grid(~variable) +
  geom_text(data = mean_data, 
            aes(x = 1.5, y = max(inten$value) * 1.1, label = round(mean, 2)),
            inherit.aes = FALSE)

• inherit.aes = FALSE：避免继承主图层的映射关系，适配mean_data数据集
• x = 1.5：适用于group为两分类的场景，多分类可调整为对应中间值
• y = max(inten$value) * 1.1：将文本放在所有柱子上方，避免被遮挡，可根据数据范围调整系数
• round(mean, 2)：格式化均值为两位小数，提升可读性

场景2：在每个柱子顶部显示对应group的均值 #

若mean_data包含group列（按variable+group聚合的均值），可调整为：

geom_text(data = mean_data, 
          aes(x = group, y = value + 0.5, label = round(mean, 2)),
          inherit.aes = FALSE)

其中value + 0.5是让文本在柱子顶部上方偏移一段距离，数值可根据实际数据调整。

内容的提问来源于stack exchange，提问作者Mick