如何调整ggplot图例项顺序并使用nudge_y设置条形图均值标签位置

针对你提出的两个技术问题，直接给出修改方案和完整代码：

问题1：让'Total'图例排在顶部 #

把grp列转换为因子类型，手动指定水平顺序，将"Total"放在最前面，ggplot会自动按这个顺序生成图例。在数据处理环节加入以下代码：

mutate(grp = factor(grp, levels = c("Total", "A", "B", "C")))

问题2：把均值文本放在条形右侧 #

由于用了coord_flip()翻转坐标轴，原y轴变为x轴，因此不能用nudge_y，要改用nudge_x。同时要和条形的position_dodge参数对应，保证文本与条形对齐。修改geom_text部分：

geom_text(aes(label = mean), position = position_dodge(width=0.9), nudge_x = 0.2)

注：0.2可根据条形宽度调整，数值越大文本离条形越远。

修改后的完整代码 #

set.seed(123) # 加随机种子保证结果可复现
n <- 100
df <- data.frame(value = sample(1:5, size = n, replace = TRUE),
                 item = sample(c("Item1", "Item2", "Item3", "Item4"), size = n, replace = TRUE),
                 grp = sample(c("A", "B", "C"), size = n, replace = TRUE))

df_copy <- df %>% mutate(grp = "Total")

dplyr::bind_rows(df, df_copy) %>% 
  group_by(item, grp) %>%
  summarise(mean = round(mean(value), 1)) %>%
  mutate(tot = ifelse(grp == "Total", mean, NA)) %>%
  group_by(item) %>%
  mutate(tot = mean(tot, na.rm = TRUE)) %>%
  mutate(grp = factor(grp, levels = c("Total", "A", "B", "C"))) %>% # 设置因子顺序
  
  ggplot(aes(x = reorder(item, tot), y = mean, group = grp, fill = grp)) +
  geom_col(position = 'dodge') +
  geom_text(aes(label = mean), position = position_dodge(width=0.9), nudge_x = 0.2) + # 调整文本位置
  coord_flip()

补充说明 #

• 因子顺序的设置必须放在ggplot绘图前，确保传入绘图函数的数据中grp已为指定顺序的因子
• nudge_x的数值可根据实际图形尺寸微调，找到视觉效果最佳的位置

内容的提问来源于stack exchange，提问作者D. Studer