在ggplot中匹配geom_text与按第三变量排序的自定义标签箱线图

核心原因 #

geom_text与箱线图位置不匹配，通常是因为x轴Rel.factor的降序排序未同步到汇总数据df.sum，导致标签的x映射位置和箱线图分组不对应。

解决步骤 #

• 1. 给原始数据的Rel.factor设置降序有序因子 #

先按Height均值对Rel.factor排序，转为有序因子，确保箱线图按要求排列：

# 提取Rel.factor的降序排列顺序（基于Height均值）
factor_order <- df %>%
  group_by(Rel.factor) %>%
  summarise(mean_h = mean(Height, na.rm = TRUE)) %>%
  arrange(desc(mean_h)) %>%
  pull(Rel.factor)

# 将df中的Rel.factor转为有序因子
df$Rel.factor <- factor(df$Rel.factor, levels = factor_order, ordered = TRUE)

• 2. 同步汇总数据df.sum的因子顺序 #

让df.sum的分组因子和df保持一致，保证标签位置对应：

df.sum$Rel.factor <- factor(df.sum$Rel.factor, levels = factor_order, ordered = TRUE)

• 3. 绘制带CLD标签的箱线图 #

直接映射x = Rel.factor到geom_text，并设置合适的y轴位置（比如箱线图最大值上方）：

ggplot(df, aes(x = Rel.factor, y = Height)) +
  geom_boxplot() +
  # 添加CLD标签，y值可根据实际数据调整
  geom_text(data = df.sum, aes(x = Rel.factor, y = max(df$Height, na.rm = TRUE) + 1.5, label = CLD)) +
  # 应用自定义x轴标签
  scale_x_discrete(labels = bi.labels) +
  theme_classic()

额外提示 #

如果df.sum是按Cross分组而非Rel.factor，需先确认Cross与Rel.factor的对应关系，再同步Cross的排序顺序，确保标签与箱线图一一匹配。

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