堆叠条形图降序排列实现与标签居中问题求解

针对你用ggplot2绘制南亚国家2022年出口贸易堆叠条形图遇到的问题，以下是完整的解决代码和说明：

1. 数据预处理：按Item总出口值降序排序 #

首先需要对数据做预处理，确保条形按每个Item的总出口值从高到低排列：

library(tidyverse)

# 假设你的数据集为south_asia_export（包含Country、Item、ExportValue列）
south_asia_export <- south_asia_export %>%
  # 计算每个Item的总出口额
  group_by(Item) %>%
  mutate(total_export = sum(ExportValue)) %>%
  ungroup() %>%
  # 按总出口额降序排序，将Item转为有序因子
  arrange(desc(total_export)) %>%
  mutate(Item = fct_inorder(Item))  # 按当前排序顺序生成有序因子

2. 绘图代码：修复标签居中问题 #

使用position_stack(vjust = 0.5)让标签精准居中在每个堆叠段的垂直中心，同时利用预处理后的有序因子实现条形降序排列：

ggplot(south_asia_export, aes(x = Item, y = ExportValue, fill = Country)) +
  geom_col() +
  # 居中显示标签，可根据需求调整size参数
  geom_text(aes(label = ExportValue), 
            position = position_stack(vjust = 0.5),
            size = 3.5) +
  labs(title = "南亚国家2022年出口贸易堆叠条形图",
       x = "商品类别",
       y = "出口额",
       fill = "国家") +
  # 可选：旋转x轴标签防止文字重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

核心要点 #

• 降序排列实现：通过计算每个Item的总出口值并排序，再将Item转为有序因子，ggplot会严格按照因子水平顺序绘制条形，满足总值降序的需求。
• 标签居中修复：position_stack(vjust = 0.5)是解决标签偏移的核心参数，它自动计算每个堆叠片段的垂直中心位置，将标签精准放置在该位置。若需格式化出口额（如添加千分位），可将label参数改为scales::comma(ExportValue)。

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