如何在ggplot2的geom_col中仅调整部分条形图标签的位置

问题背景 #

已通过代码绘制翻转坐标的条形图，希望仅对“Difficult”和“Very difficult”两个条形的标签调整hjust参数使其显示在条形外侧（右侧），同时需要两种方案：一是仅调整部分标签位置，二是扩展轴让所有标签显示在外侧。

方案一：仅调整特定条形的标签位置 #

核心思路是通过条件映射hjust参数，针对目标类别设置不同的对齐方式。在geom_text的aes中使用ifelse函数，根据条形类别动态分配hjust值：

library(ggplot2)
library(RColorBrewer)
library(forcats)

survey_understanding <- data.frame(
  Survey_difficulty = c("Very simple", "Simple", "OK", "Confusing at times", "Difficult", "Very difficult"),
  n = c(384, 274, 142, 57, 7, 6),
  Percent = c("44%","31%", "15%", "7%", "1%", "1%")
)

survey_understanding_graph <- ggplot(survey_understanding, 
                                     aes(x = fct_reorder(Survey_difficulty, n), 
                                         y = n, 
                                         fill = Survey_difficulty)) +
  geom_col() +
  coord_flip()+
  # 关键：用ifelse动态设置hjust
  geom_text(aes(label = paste(n, paste0('(', Percent, ')')),
                hjust = ifelse(Survey_difficulty %in% c("Difficult", "Very difficult"), 
                               -0.1, 1.1)), 
            colour = "black", size = 3) +
  ylab("n") +
  xlab("Survey difficulty") +
  theme_light() +
  theme(legend.position = "none") +
  scale_fill_brewer(palette="Set1")

survey_understanding_graph

说明 #

• coord_flip后条形为横向，hjust=1.1将标签放在长条形的左侧（外侧），hjust=-0.1将标签放在短条形的右侧（外侧）
• 通过条件判断仅对目标条形应用不同对齐规则，能有效节省图表空间

方案二：扩展轴让所有标签显示在外侧 #

如果不需要区分标签位置，可直接扩展x轴（coord_flip后原y轴n变为x轴）的右侧空间，将所有标签统一放在条形外侧：

library(ggplot2)
library(RColorBrewer)
library(forcats)

survey_understanding <- data.frame(
  Survey_difficulty = c("Very simple", "Simple", "OK", "Confusing at times", "Difficult", "Very difficult"),
  n = c(384, 274, 142, 57, 7, 6),
  Percent = c("44%","31%", "15%", "7%", "1%", "1%")
)

survey_understanding_graph <- ggplot(survey_understanding, 
                                     aes(x = fct_reorder(Survey_difficulty, n), 
                                         y = n, 
                                         fill = Survey_difficulty)) +
  geom_col() +
  coord_flip()+
  # 统一设置hjust为-0.1，让标签显示在条形右侧
  geom_text(aes(label = paste(n, paste0('(', Percent, ')'))), 
            hjust = -0.1, colour = "black", size = 3) +
  ylab("n") +
  xlab("Survey difficulty") +
  theme_light() +
  theme(legend.position = "none") +
  scale_fill_brewer(palette="Set1") +
  # 关键：扩展x轴右侧空间，避免标签被截断
  scale_x_continuous(expand = expansion(mult = c(0, 0.1)))

survey_understanding_graph

说明 #

• scale_x_continuous(expand = expansion(mult = c(0, 0.1)))：将x轴右侧扩展10%的空间，确保所有标签完整显示
• 这种方式无需区分类别，操作更简单，但会占用更多横向空间

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