如何在ggplot2极坐标柱状图中使正负数值方向一致？

数据生成代码 #

group = letters[1:10]
response = sample(-5:5, size=10, replace=TRUE)
df <- data.frame(group,
           response)

问题描述 #

想要制作极坐标柱状图展示数据，但数据包含正负值，导致柱子方向有内有外。尝试用scale_y_continuous()调整y轴范围无效，希望让所有柱子都向外延伸，同时保留正负值的颜色区分。

原绘图代码 #

ggplot(df) +
 aes(x = group, y = response, fill = response) +
 geom_col() +
 scale_fill_distiller(palette = "PiYG", 
 direction = 1) +
 theme_minimal() +
 theme(legend.position = "bottom")+coord_polar()

可行方案 #

极坐标下负y值会向中心方向绘制，直接调整轴范围无法改变这个逻辑。核心思路是将y值转为绝对值保证所有柱子向外延伸，同时保留原始值用于颜色映射，再自定义刻度显示原始正负数值的含义：

library(ggplot2)

ggplot(df) +
  aes(x = group, y = abs(response), fill = response) +  # y轴用绝对值确保柱子向外，填充色保留原始正负值
  geom_col() +
  scale_fill_distiller(palette = "PiYG", direction = 1) +
  scale_y_continuous(
    breaks = 0:5,  # 对应绝对值的刻度位置
    labels = c("0", "-1", "-2", "-3", "-4", "-5")  # 刻度显示为原始负数值，匹配数据含义
  ) +
  theme_minimal() +
  theme(legend.position = "bottom") +
  coord_polar()

进阶调整（可选） #

如果希望刻度能同时体现正负范围（中心为0，向外依次对应1/-1、2/-2等），可以通过数据偏移实现：

df$y_pos <- abs(df$response) + 5  # 偏移数值让0处于中心位置

ggplot(df) +
  aes(x = group, y = y_pos, fill = response) +
  geom_col() +
  scale_fill_distiller(palette = "PiYG", direction = 1) +
  scale_y_continuous(
    breaks = 5:10,
    labels = c("0", "1", "-1", "2", "-2", "3", "-3", "4", "-4", "5", "-5")[seq(1,11,2)]
  ) +
  theme_minimal() +
  theme(legend.position = "bottom") +
  coord_polar()

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