在R语言中实现带双层表头的表格转置方法咨询

方法一：Excel操作步骤 #

• 整理原数据：确认原表格表头包含年份、类别以及各类指标列，数据无空值或格式错误。
• 创建数据透视表：选中全部数据区域，点击菜单栏「插入」→「数据透视表」，在弹窗中设置：
  • 把「年份」拖入列标签区域
  • 把「类别」拖入列标签区域（放在「年份」下方，自动形成双层列表头）
  • 把原表格的各数值指标列拖入行标签区域
  • 把指标数值拖入值区域，若每个组合对应唯一值，聚合方式选「最大值/最小值」即可
• 调整格式：根据目标表格样式，修改表头合并、单元格对齐方式，删除多余汇总行/列。

方法二：Python Pandas代码实现 #

适合数据量较大的批量处理场景：

1. 导入依赖库：

import pandas as pd

2. 读取原数据（CSV/Excel均可）：

# CSV格式
df = pd.read_csv('原始数据.csv')
# Excel格式
# df = pd.read_excel('原始数据.xlsx')

3. 重塑数据格式（宽表转长表）：

# 保留年份、类别作为标识列，其余列转为「指标-数值」键值对
melted_df = df.melt(id_vars=['年份', '类别'], var_name='指标', value_name='数值')

4. 生成双层表头转置表：

# 以指标为行索引，年份+类别为双层列索引，提取对应数值
pivoted_df = melted_df.pivot_table(
    index='指标',
    columns=['年份', '类别'],
    values='数值',
    aggfunc='first'  # 唯一值场景用first即可
)

5. 保存结果：

pivoted_df.to_excel('双层表头结果.xlsx')

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