求助：使用ggplot2绘制时间维度的百分比堆叠柱状图

你的数据是宽格式（每行对应一个年份，不同分类的占比分列存储），而ggplot2绘制堆叠柱状图需要长格式数据（每行对应一个年份+分类的占比记录），以下是完整解决步骤：

1. 准备环境与模拟数据 #

先加载必要的包，同时模拟和你结构一致的数据（如果你的数据已经存在，直接用自己的dataframe即可）：

# 加载包
library(tidyverse)

# 模拟你的数据框
df <- tibble(
  anio = 2013:2017,
  frac_exp = c(0.31, 0.28, 0.35, 0.33, 0.29),
  frac_nac = c(0.69, 0.72, 0.65, 0.67, 0.71)
)

2. 将宽格式转换为长格式 #

使用pivot_longer函数把数据转成ggplot需要的结构：

df_long <- df %>%
  pivot_longer(
    cols = c(frac_exp, frac_nac),  # 指定要转换的列
    names_to = "分类",             # 新的分类列名
    values_to = "占比"             # 新的占比列名
  )

转换后的数据结构会变成：

3. 绘制堆叠柱状图 #

用ggplot2绘制，同时添加百分比标签、调整样式：

ggplot(df_long, aes(x = factor(anio), y = 占比, fill = 分类)) +
  geom_col() +  # 默认就是堆叠模式，position="stack"可省略
  geom_text(aes(label = paste0(占比*100, "%")),
            position = position_stack(vjust = 0.5)) +  # 标签居中显示
  scale_y_continuous(labels = scales::percent_format()) +  # y轴显示百分比格式
  labs(
    x = "年份",
    y = "占比",
    fill = "分类",
    title = "各年份分类占比堆叠柱状图"
  ) +
  theme_minimal()  # 简洁主题样式

额外调整选项 #

• 如果需要把每根柱子都拉到100%高度（百分比堆叠），把geom_col()改成geom_col(position = position_fill())即可
• 自定义分类颜色：添加scale_fill_manual(values = c("frac_exp" = "#2E86AB", "frac_nac" = "#F2A154"))到ggplot代码中，替换颜色码即可

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