如何调整ggplot中geom_text与geom_bar柱状条的对应位置？

问题原因 #

你的代码存在两个核心问题：

• 不必要地拆分数据集并重复调用geom_bar和new_scale_fill，增加代码冗余且易导致映射混乱；
• geom_text中未指定group=SurveyType，导致position_dodge无法根据分组调整标签位置，所有标签默认对齐到每个x轴类别（物种）的中心。

解决方案 #

简化绘图逻辑，同时给geom_text添加分组映射，让标签与对应柱状条对齐：

synch<-data.frame(Species = c("AMCO","AMCO","AMCO","GADW","GADW","GADW","AGWT","AGWT","AGWT","RNDU","RNDU","RNDU"),
                  Value=c(93.3,61.1,97.4,0.8,34.9,0.2,0.0,4.0,0.0,0.5,0.0,0.4),
                  SurveyType=c("A","B","C","A","B","C","A","B","C","A","B","C"))

library(dplyr)
library(ggplot2)

synchplot.again<- ggplot(data=synch, aes(x = Species, y = Value, fill = SurveyType)) +
  # 一次geom_bar实现所有分组柱状图
  geom_bar(stat='identity', position = position_dodge(width = 0.75), width=0.7) + 
  # 统一设置填充色规则，无需重复定义
  scale_fill_manual(name = "Survey Type", 
                    labels = c("UAV Pre-plane","Plane","UAV Post-plane"),
                    values = c("darkblue","red","lightblue")) +
  # geom_text添加group映射，确保position_dodge生效
  geom_text(aes(group = SurveyType, label = Value),
            position = position_dodge(width = 0.75),
            y = synch$Value + 2) +
  theme_bw() +
  # 合并theme设置，简化代码
  theme(legend.text = element_text(size = 10, family = "Arial", colour = "black"),
        plot.title = element_text(hjust = 0.5, size = 15, family = "Arial"),
        panel.border = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.line = element_line(colour = "black"),
        text = element_text(size = 16, family = "Arial"),
        legend.title = element_text(size = 12, family = "Arial")) +
  labs(y="Proportion of Count") +
  ggtitle("Species Proportion of Total Survey Count by Survey Type - 
            Swan Creek Dewatering Unit, Late Season") 

synchplot.again

关键修改说明 #

• 全局映射填充色：将fill=SurveyType放到ggplot()的全局美学映射中，避免重复调用geom_bar和new_scale_fill，代码更简洁且逻辑清晰；
• 添加分组映射：geom_text的aes中加入group=SurveyType，让ggplot明确按SurveyType分组错开标签，确保每个标签对应到所属柱状条的正上方；
• 合并theme设置：将分散的theme()调用合并，提升代码可读性。

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