in图中重叠geom_point和geom_bar时点标签的问题

Question

我正在做一个重叠的图表，用y轴来测量收入，在y轴上测量性别差距。

我的具体问题是，我不能让点标签接近那些。相反，它们似乎遵循与每年相对应的中心酒吧标签的位置。

他是密码：

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(label=(ifelse(Sexo=="Total",paste0("-",brechap),""))))+
  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"),
        element_blank(),panel.background = element_blank(),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")

这是一张图片

​

​

谢谢!

Answer 1

谢谢你们！

它完美地将y=brecha添加到第二个geom_text的aes中。