如何在ggplot中动态修改轴标签符号而不改动原始数据？

针对循环生成人口金字塔图时轴标签显示负数的问题，直接通过scale_y_continuous()自定义标签函数即可动态解决，无需手动指定标签值。

修改后的完整代码 #

PyramidPlot <- ggplot() +
  geom_bar(data = PopEDMalesFullLessT, aes(x = Age, y = Percentage, fill = "red"), width= 0.4, 
           position = position_nudge(0.22), stat = "identity") +
  geom_bar(data = PopEDFemalesFullLessT, aes(x =  Age, y = Percentage, fill = "blue"), width= 0.4,
           position = position_nudge(0.22), stat = "identity") +
  scale_x_discrete(name = "Age Group")+ 
  labs(fill = "Legend") +
  theme_classic()+
  theme(axis.text.x = element_text(margin = margin(t = 0.25, unit = "in")),
        axis.title.x = element_text(margin = margin(0.1, 0, 0.1, 0)),
        legend.position = c(0.9, 0.9)
  )+
  coord_flip()+
  scale_fill_discrete(labels=c('Males', 'Females')) +
  # 动态将轴标签转为绝对值
  scale_y_continuous(labels = function(x) abs(x))

核心逻辑 #

• 新增的scale_y_continuous(labels = function(x) abs(x))会自动对所有y轴标签取绝对值，不管原始数据是正还是负，都显示为正数
• 该方法完全动态，不需要提前知晓轴的取值范围，适配循环生成图表的场景
• 仅修改标签显示内容，不会改变条形的实际位置和数据映射

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