如何在进行ggplot2制图时，分组设置数据标签的偏移量？

Question

在进行ggplot2制图时，需要设置标签偏移量，
将正值数据标签标注在条形图上方，负值数据标签标注在条形图下方，
但我只会设置全部标签总向上或向下的偏移量，无法实现此目的

ggplot(dat2, aes(typ,corr)) + 
  geom_bar(stat = "identity",width = 0.7)+
  ylim(-0.6, 0.6)+ #更改坐标轴范围
  geom_hline(aes(yintercept=0), size =1)+
  labs(x = '', y = '相关系数')+  #标记横纵坐标轴名称
  theme_classic()+
  theme(axis.title =  element_text(size=15,face = "bold"), # 调整横纵坐标轴标题字号并设置为粗体
        axis.text.x = element_blank(),
        axis.line.y = element_line(colour = "black",linewidth =1),
        axis.line.x = element_blank(),
        axis.ticks.x = element_blank())+  #调整坐标轴及标签
  geom_text(aes(label= typ),
        vjust= 1, size= 3)

附上一段出图代码，求大家解答一下该怎么分别设置偏移量

Answer 1

library(ggplot2)

ggplot(data = dat, aes(x = x, y = y)) + 
  geom_bar(stat = "identity") +
  geom_text(aes(label = y, 
                vjust = ifelse(y >= 0, -0.5, 1.5)), 
            size = 5)

vjust 参数使用 ifelse() 函数来根据数据的正负值进行设置。当 y 大于等于0时，vjust 设为 -0.5，表示将标签的中心偏移到绘图对象的上方；当 y 小于0时，vjust 设为 1.5，表示将标签的中心偏移到绘图对象的下方。