R语言ggplot柱状图：调整轴步长及解决低柱标签丢失问题

针对你遇到的最低柱子数值标签丢失问题，核心原因是标签超出了绘图区域，或是对齐参数因坐标轴翻转设置不当。结合你的代码，给出以下修复方案：

方案1：扩展坐标范围+修正标签对齐 #

做两处关键修改，确保标签有足够显示空间且位置正确：

• 用expand_limits()扩大y轴上限，给标签留出额外空间
• 修正geom_text的hjust参数（coord_flip()翻转坐标轴后，hjust的作用方向会反转）

修改后的完整代码：

ggplot(data=Ingrepen19) +
  aes(
    x=reorder(Specialisme, -Frequentie), 
    y=Frequentie) +
  geom_bar(
    stat="identity", 
    position="dodge2") +
  ggtitle(
    label = "Specialismes in het WKZ",
    subtitle = "Aantallen uit het jaar 2020") +
  theme(
    plot.title = element_text(hjust = 0.5),
    plot.subtitle = element_text(hjust = 0.5),
    aspect.ratio=4/3) +
  xlab("Specialisme") +
  ylab("Aantallen") +
  geom_text(
    aes(label=Frequentie), 
    color="dark grey", 
    hjust=1.1,  # 翻转后hjust控制垂直对齐，1.1让标签在柱子右侧
    size=3.5,
    inherit.aes = TRUE) +
  expand_limits(y = max(Ingrepen19$Frequentie)*1.1) +  # 扩大y轴上限10%
  coord_flip()

方案2：用nudge_x微调标签位置 #

如果觉得hjust的调整不够灵活，可改用nudge_x控制标签偏移量，配合坐标范围扩展：

ggplot(data=Ingrepen19) +
  aes(
    x=reorder(Specialisme, -Frequentie), 
    y=Frequentie) +
  geom_bar(
    stat="identity", 
    position="dodge2") +
  ggtitle(
    label = "Specialismes in het WKZ",
    subtitle = "Aantallen uit het jaar 2020") +
  theme(
    plot.title = element_text(hjust = 0.5),
    plot.subtitle = element_text(hjust = 0.5),
    aspect.ratio=4/3) +
  xlab("Specialisme") +
  ylab("Aantallen") +
  geom_text(
    aes(label=Frequentie), 
    color="dark grey", 
    nudge_x = 0.1,  # 翻转后nudge_x对应原y轴方向的偏移
    size=3.5,
    inherit.aes = TRUE) +
  expand_limits(y = max(Ingrepen19$Frequentie)*1.1) +
  coord_flip()

额外优化 #

如果最低柱子的数值远小于其他柱子，可单独给它设置标签位置：

geom_text(
  aes(label=Frequentie, hjust=ifelse(Frequentie == min(Frequentie), 1.5, 1.1)), 
  color="dark grey", 
  size=3.5,
  inherit.aes = TRUE)

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