如何高效转换R中宽格式DataFrame的结构？

当然有更快捷的解决方案！你现在需要完成的是**宽格式（wide format）到长格式（long format）**的转换，这种场景下用tidyr包的pivot_longer()函数简直是量身定做，完全不用手动逐列处理，尤其适合你这种包含大量数值列的大型DataFrame。

方法1：使用tidyverse的pivot_longer()（推荐） #

首先确保你已经安装并加载了tidyverse包（它包含tidyr）：

install.packages("tidyverse")
library(tidyverse)

然后一行代码就能完成转换：

# 假设你的原始数据框名为all
all_long <- all %>%
  pivot_longer(
    cols = -c(Variable, Channel, TIMEPERIOD),  # 排除不需要转换的标识符列
    names_to = "Variable",                     # 原列名存入新的"Variable"列
    values_to = "Value"                        # 原列值存入新的"Value"列
  )

参数说明：

• cols = -c(...)：指定哪些列不需要转换（这里是前三个标识符列），剩下的所有列都会被自动转换，不管你有50个还是更多列。
• names_to：定义存储原列名的新列名称，对应你期望输出里的Variable列。
• values_to：定义存储原列值的新列名称，对应你期望输出里的Value列。

运行后得到的all_long就是你想要的长格式数据，完全不需要手动子集、重命名或插入列，效率拉满！

方法2：Base R的reshape()函数 #

如果你不想加载额外的包，base R自带的reshape()也能实现，但语法相对繁琐一些：

all_long_base <- reshape(
  all,
  direction = "long",
  varying = names(all)[-c(1:3)],  # 指定需要转换的列（除前3列外的所有列）
  v.names = "Value",              # 数值列的名称
  timevar = "Variable",           # 存储原列名的列名称
  times = names(all)[-c(1:3)]     # 原列名作为新列的取值
)

# 调整列顺序以匹配你的期望输出
all_long_base <- all_long_base[, c("Variable", "Channel", "TIMEPERIOD", "Value")]

对比你之前的手动方法，这两种方法都能一次性处理所有需要转换的列，再也不用重复编写冗余代码，处理大型数据集时能节省大量时间和精力。

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