如何在R中将数据框第一列转为新表头并重塑数据？

嘿，我来帮你解决这个数据重塑的问题！先确认下你提供的原始数据——用你给的代码生成的数据框是这样的：

v1 <- matrix(c("A", "C"), nrow=2, ncol=1)
v2 <- matrix(c("B", "D"), nrow=2, ncol=1)
v3 <- c(1,3)
v4 <- c(0,0)
data <- cbind(v1,v2,v3,v4)
data <- as.data.frame(data)

生成的初始数据：

我注意到你给出的目标示例里数值好像有点小笔误（比如B行的A.V4写了2，但原始数据里A的v4是0），不过核心需求我get到了：把v1的每个值（A、C）作为v3、v4列名的前缀，v2作为行标识，对吧？

下面给你两种靠谱的实现方法：

方法一：用tidyverse的pivot_wider（推荐，更直观） #

现在R里处理数据重塑，tidyverse套件里的tidyr包是首选，步骤超清晰：

1. 先加载tidyverse：

library(tidyverse)

2. 先把数据转成长格式，再重新拼成宽格式：

# 第一步：把v3、v4合并成一个变量列，方便后续组合列名
data_long <- data %>%
  pivot_longer(cols = c(v3, v4), names_to = "var", values_to = "value") %>%
  # 把v1和var拼接成新的列名，用点分隔
  unite(new_col, v1, var, sep = ".")

# 第二步：转成你要的宽格式，v2作为行，new_col作为列，空值填0
data_wide <- data_long %>%
  pivot_wider(names_from = new_col, values_from = value, values_fill = 0)

运行完你就能得到想要的结果：

要是你目标示例里的数值是特殊需求，只需要调整values_fill或者原始数据就行。

方法二：用reshape2的dcast（如果你习惯用旧的reshape系列包） #

如果你更熟悉reshape包，那用reshape2的dcast也能搞定：

1. 先加载reshape2：

library(reshape2)

2. 先把数据“融化”成长格式，再重新“铸造”成宽格式：

# 融化数据，保留v1和v2作为标识列
data_melt <- melt(data, id.vars = c("v1", "v2"), variable.name = "var")
# 拼接v1和var得到新列名
data_melt$new_col <- paste(data_melt$v1, data_melt$var, sep = ".")
# 转成宽格式，空值填0
data_wide <- dcast(data_melt, v2 ~ new_col, value.var = "value", fill = 0)

得到的结果和方法一完全一样～

另外提个小细节：你用cbind生成的数据框里，v3和v4会变成字符类型（因为矩阵会统一数据类型），如果需要数值类型的话，记得先转一下：

data$v3 <- as.numeric(data$v3)
data$v4 <- as.numeric(data$v4)

这样结果里的数值就是数值型啦！

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