如何使用ggplot绘制x值为正但条形方向翻转的条形图

可以实现，核心逻辑是先给需要翻转的条形的数值取负，再调整x轴标签显示为绝对值即可，无需使用额外拓展包。

• 数据预处理：新增区分条形方向的分组字段，对需要翻转方向的条形，将原正数值乘以-1得到绘图用的x轴数值，正向条形保留原数值即可。
• 绘制基础条形图：直接使用ggplot2的geom_col（或geom_bar(stat="identity")）绘制，将fill参数映射到分组字段即可区分不同方向的条形颜色。
• 调整x轴显示规则：通过scale_x_continuous的labels参数设置为绝对值函数，让x轴刻度全部显示为正数值，视觉上就实现了「数值为正、部分条形向左翻转」的效果。

library(ggplot2)
# 构造示例数据
df <- data.frame(
  category = paste0("类别", 1:4),
  value = c(3.2, 5.1, 2.8, 4.5),
  direction = c("正向", "反向", "正向", "反向")
)
# 预处理生成绘图用的x轴数值
df$plot_x <- ifelse(df$direction == "反向", -df$value, df$value)

# 绘图
ggplot(df, aes(x = plot_x, y = category, fill = direction)) +
  geom_col(width = 0.7) +
  # 调整x轴标签显示为绝对值，可根据实际数据调整刻度范围
  scale_x_continuous(labels = abs, limits = c(-6, 6)) +
  scale_fill_manual(values = c("正向" = "orange", "反向" = "blue")) +
  labs(x = "数值", y = "分类") +
  theme_minimal()

如果需要和参考图样式更贴近，还可以手动添加x=0的基准线，或调整主题去掉多余网格线即可。

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