如何在ggplot2中将条形标签置于条形旁而非坐标轴上

可以通过geom_text（或geom_label）结合位置调整，同时隐藏原y轴文本，实现将标签放在条形旁边的效果，代码简洁易维护：

Names <- c("ExampleA","ExampleB","ExampleC","ExampleD", "ExampleE", "ExampleF","ExampleG", "ExampleH")
Counts <- c(4,3,2,1,-1,-2,-3,-4)
Type <- c("X","X","X","X", "Y","Y","Y","Y")
df <-data.frame(Names,Counts, Type)

ggplot(df, aes(x=reorder(Names,Counts), y=Counts, fill=Type))+
  geom_col()+
  # 根据数值正负调整标签位置，确保在条形外侧
  geom_text(aes(label = Names), 
            hjust = ifelse(df$Counts > 0, -0.1, 1.1),
            color = "black",
            size = 3.5)+
  coord_flip()+
  theme_minimal()+
  # 隐藏原y轴的文本和标题，避免重复
  theme(axis.text.y = element_blank(),
        axis.title.y = element_blank())

关键说明 #

• 标签位置控制：由于coord_flip()反转了坐标轴，通过hjust参数根据Counts的正负调整标签位置：
  • 当Counts>0时，hjust=-0.1让标签显示在条形右侧（外侧）
  • 当Counts<0时，hjust=1.1让标签显示在条形左侧（外侧）
• 替换为geom_label：如果需要带背景的标签，只需把geom_text换成geom_label，并可添加fill="white"等参数优化样式：

  geom_label(aes(label = Names), 
            hjust = ifelse(df$Counts > 0, -0.1, 1.1),
            fill = "white",
            size = 3.5)
  

• 隐藏原坐标轴元素：通过theme(axis.text.y = element_blank())移除原y轴的文本，避免和条形标签重复。

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