R语言DataFrame重塑求助：将列头转为值（dcast无效）

嗨，作为R新手碰到这种格式转换的需求太正常啦～你之前用dcast()没效果是因为它是用来把长格式转成宽格式的，咱们要反过来实现宽转长，推荐用下面两种方法，完全不需要聚合操作，就是单纯的结构重排：

方法1：用tidyverse的pivot_longer()（推荐，现代R主流方式） #

首先确保你安装并加载了tidyverse包：

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

接着用pivot_longer()处理你的数据：

# 先定义原数据
actor <- c("a1", "a2", "a3")
code1 <- c("c1","c2", "c3")
measure_1 <- c(1, 2, 3)
measure_2 <- c(4, 5, 6)
x <- data.frame(actor, code1, measure_1, measure_2)

# 转换为长格式
long_x <- x %>%
  pivot_longer(
    cols = starts_with("measure_"), # 选择所有需要转换的列（以measure_开头的列）
    names_to = "measures",          # 原列名存到新列"measures"中
    values_to = "value"             # 原列对应的值存到新列"value"中
  )

# 查看转换结果
print(long_x)

运行后就能得到你想要的长格式结构：

# A tibble: 6 × 3
  actor code1 measures   value
  <chr> <chr> <chr>      <dbl>
1 a1    c1    measure_1      1
2 a1    c1    measure_2      4
3 a2    c2    measure_1      2
4 a2    c2    measure_2      5
5 a3    c3    measure_1      3
6 a3    c3    measure_2      6

方法2：用reshape2包的melt()函数 #

如果你习惯用reshape2包，也可以用melt()实现同样的效果：

install.packages("reshape2")
library(reshape2)

# 转换长格式
long_x <- melt(
  x,
  id.vars = c("actor", "code1"), # 保留不变的标识列
  variable.name = "measures",    # 原列名对应的新列名
  value.name = "value"           # 原值对应的新列名
)

print(long_x)

这个方法输出的结果和上面完全一致。

小提醒： #

• 两种方法都可以灵活指定要转换的列：比如pivot_longer里的cols可以直接写c(measure_1, measure_2)，melt里也可以用measure.vars = c(measure_1, measure_2)来指定。用starts_with()是更省心的写法，以后新增measure_3、measure_4这类列时，不用修改代码就能自动识别。
• 这两个函数默认都不会做聚合操作，完全是按你的需求单纯重排数据结构，不用额外设置参数。

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