ggplot中geom_point与geom_bar重叠时点标签位置异常问题求助

问题核心原因 #

你的散点标签代码存在两个关键问题：

1. 未设置inherit.aes = FALSE，导致继承了主图层的fill=Sexo和position=dodge参数，每个年份会生成3个标签（对应Mujeres/Total/Hombres），仅Total的标签显示，但位置被偏移至柱状图中间，与收入标签重合。
2. 未明确指定标签的y轴值为brecha，导致标签使用了主Y轴的收入值，无法对应散点的实际位置。

针对性修改方案 #

替换原有的散点标签geom_text代码，调整如下：

geom_text(aes(x=Year, y=brecha, label=paste0("-", brechap)), 
          inherit.aes = FALSE,  # 断开与主图层的aes继承
          color="red",          # 与散点/线条颜色统一
          vjust=1.5,            # 将标签放在散点下方，避免重叠
          size=3)

完整修改后的代码 #

graf1 %>%
  mutate(Sexo = fct_relevel(Sexo,"Mujeres", "Total", "Hombres")) %>% 
ggplot(aes(fill=Sexo, y=ing_medio, x=Year)) + 
  geom_bar(position="dodge", stat="identity")+ 
  coord_cartesian(ylim = c(0,800))+
  geom_text(aes(label=paste0("$",round(ing_medio,1))),
            vjust=-0.5,size=3,check_overlap = F,
            position = position_dodge(0.9))+
  scale_fill_brewer(palette="Paired")+ 
  geom_line(aes( y=brecha, x=Year, group=1,color ="Brecha de género (%)"), inherit.aes = FALSE)+
  scale_color_manual(NULL, values = "red") +
  geom_point(aes( y=brecha, x=Year, group=1,color ="Brecha de género (%)"), inherit.aes = FALSE)+
  # 修改后的散点标签代码
  geom_text(aes(x=Year, y=brecha, label=paste0("-", brechap)), 
            inherit.aes = FALSE,
            color="red",
            vjust=1.5,
            size=3)+
  scale_x_discrete("Año")+ 
  scale_y_continuous(name="Ingreso medio en miles de pesos ($)",
                     sec.axis = sec_axis( trans=~./2000, 
                     name="Brecha (%)",
                     labels = scales::label_percent(),
                     breaks = seq(0, 1, by = 0.05)))+
  theme(panel.grid.minor.y = element_line(color="lightgrey"),
        panel.grid.major.y = element_line(color="lightgrey"),
        panel.background = element_blank(),  # 修复原theme的语法错误
        legend.position="bottom",
        legend.text=element_text(size=8),
        plot.title = element_text(face = "bold",size=9, hjust=0.5),
        axis.title=element_text(size=8,face="bold"),
        axis.title.y.right = element_text(angle = 90))+
  labs(title="Ingreso medio mensual de las personas ocupadas y brecha de género en el ingreso, según sexo y año, 2017-2021")

关键修改说明 #

• inherit.aes = FALSE：确保标签不继承主图层的fill和position=dodge，每个年份仅生成一个对应散点的标签。
• 明确指定y=brecha：让标签与散点使用相同的次Y轴数值，位置完全对应。
• vjust=1.5：将标签移至散点下方（可根据需求调整为vjust=-0.5移至上方），彻底避免与柱状图标签重叠。
• 修复原theme语法错误：原代码中element_blank()位置错误，导致部分主题设置失效，已调整至正确位置。

内容的提问来源于stack exchange，提问作者Sebastián Valladares