R语言中如何将数据框列拆分为多变量并转为长格式？

嘿，我懂你这种手动处理列名的痛苦——完全不需要手动操作！下面给你两种靠谱的方案，一种是用你提到的reshape2包，另一种是更现代的tidyverse工具链，都能自动完成列名拆分和数据重塑。

首先，先构造你的示例数据框（方便你直接测试）：

df <- data.frame(
  SVI = c(12, 11),
  SDI = c(10, 9),
  CVI = c(5, 4),
  CDE = c(3, 2)
)

方案1：用reshape2实现 #

先把宽格式转成长格式，再拆分列名：

library(reshape2)

# 第一步：转长格式，把列名存到Code列，对应值存到Value列
long_df <- melt(df, variable.name = "Code", value.name = "Value")

# 第二步：拆分Code列的三个字母到单独列
long_df$First_letter <- substr(long_df$Code, 1, 1)
long_df$Second_letter <- substr(long_df$Code, 2, 2)
long_df$Third_letter <- substr(long_df$Code, 3, 3)

# 可选：移除原来的Code列，保留你需要的结构
long_df <- long_df[, c("Value", "First_letter", "Second_letter", "Third_letter")]

方案2：用tidyverse（更简洁） #

用tidyr的pivot_longer转长格式，再用separate一键拆分列名，代码更紧凑：

library(tidyverse)

long_df_tidy <- df %>%
  # 转长格式：所有列转为Code（列名）和Value（对应值）
  pivot_longer(cols = everything(), names_to = "Code", values_to = "Value") %>%
  # 拆分Code列：按字符位置拆分，1:2表示在第1、2个字符后分割，得到3个单字母列
  separate(Code, into = c("First_letter", "Second_letter", "Third_letter"), sep = 1:2)

两种方案最终得到的结果都是你想要的结构：

这两种方法都完全自动化，哪怕你有更多三个字母的列，也能直接复用代码，不用手动处理每个列名~

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