如何在R语言中实现列布局表格到行布局的转换？

嘿，你的思路方向完全没问题，但R里有个更简洁的方法能一步搞定这种宽表转长表的需求——用tidyr包的pivot_longer()函数，它把你说的拆分列、重命名、加标识合并这些步骤直接封装好了，代码更清爽！

先给你举个实际例子，假设你的原始列布局表格是这样的：

# 模拟原始数据
original_df <- data.frame(
  policy_num = c("POL001", "POL002", "POL003"),
  net = c(1500, 2200, 800),
  ceded = c(400, 600, 200)
)

用pivot_longer()转成行布局只需要几行代码：

library(tidyr)

# 宽表转长表
long_format_df <- original_df %>%
  pivot_longer(
    cols = c(net, ceded),  # 指定要转换的宽列
    names_to = "amount_type",  # 原列名存入这个新标识列
    values_to = "amount"       # 原列的值存入这个新数值列
  )

运行后得到的结果就是你想要的行布局：

这个方法的好处是：

• 不用手动拆分两个表格再合并，一步到位
• 如果以后需要转换更多类似的列（比如再加个retained列），只需要在cols参数里加上就行，扩展性很强
• 自动保留所有非转换列（比如这里的policy_num）作为分组依据，不用额外处理

本质上它和你的思路逻辑是一致的，但pivot_longer()帮你把重复的操作都封装了，写起来更高效~

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