如何根据y变量调整R ggplot条形图的文本标签位置？

你的代码里存在geom_bar()和geom_col()重复的问题（两者功能一致，geom_col()就是默认stat="identity"的geom_bar()），可以删掉其中一个。要实现win的绿色标签在条形顶部内侧、loss的红色标签在条形底部内侧，只需在geom_text()里通过ifelse()根据wnls的正负动态设置vjust参数即可：

plot1 <- ggplot(data = puck98 %>% 
                  mutate(win_loss = ifelse(wnls < 0, "loss", "win")), 
                aes(x = game, y = wnls, fill = win_loss)) +
  geom_col(width = 0.5) +  # 替代重复的geom_bar(stat="identity")
  scale_fill_manual(values = c("red", "green")) +
  ylim(-5, 5) +
  geom_text(aes(label = status, vjust = ifelse(wnls > 0, 1, 0)))  # 动态调整vjust
plot1

关键说明： #

• 当wnls > 0（win）时，vjust = 1：标签会向下对齐，刚好落在向上延伸的条形顶部内侧；
• 当wnls < 0（loss）时，vjust = 0：标签会向上对齐，落在向下延伸的条形靠近y轴0的一侧（即你说的“底部内侧”）；
• 因为只有部分条形需要标签，只要你的status变量在不需要标签的位置为NA，geom_text()会自动忽略这些位置，无需额外处理。

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