如何将特定结构的data.frame转换为矩阵？求R语言实现代码

当然有啦！针对你这种把仅记录「存在（1）」的长格式数据转成宽格式（行是物种、列是化合物，用1/0表示存在/不存在）的需求，R里有好几种高效的方案，尤其适合处理大数据量的场景，我给你详细说明：

1. 用tidyverse的pivot_wider（代码简洁易读） #

tidyverse是R里最流行的数据分析工具集，pivot_wider是专门用来做长转宽的函数，可读性拉满，中等规模数据处理完全没问题。

步骤示例： #

首先先模拟你的原始数据（方便你测试）：

# 模拟原始长格式数据
original_df <- data.frame(
  species = c("物种A", "物种A", "物种B", "物种C", "物种C", "物种C"),
  化合物 = c("化合物X", "化合物Y", "化合物X", "化合物Y", "化合物Z", "化合物X"),
  status = rep(1, 6)
)

然后执行转换：

library(tidyverse)

# 长转宽，缺失值（不存在的化合物）填充为0
wide_df <- original_df %>%
  pivot_wider(
    id_cols = species,          # 指定行标识为species列
    names_from = 化合物,        # 把化合物的取值作为新的列名
    values_from = status,       # 用status列的值填充新列
    values_fill = 0             # 不存在的情况填充0
  )

转换后的结果就是你要的格式：第一列是物种，其余列是化合物，1/0对应存在/不存在。

2. 用data.table的dcast（大数据量首选） #

如果你的数据行数特别多（比如十万/百万级），data.table的效率会比tidyverse高很多，它的dcast函数同样能完成这个转换：

步骤示例： #

library(data.table)

# 把原始数据转成data.table格式（也可以直接用fread读取原始数据为data.table）
dt <- as.data.table(original_df)

# 长转宽，填充缺失值为0
wide_dt <- dcast(dt, species ~ 化合物, value.var = "status", fill = 0)

# 如果需要转回普通data.frame，执行：as.data.frame(wide_dt)

3. 转成矩阵格式（可选） #

如果后续需要纯矩阵（不含species列，用物种名做行名），可以这样处理：

# 从tidyverse的结果转矩阵
compound_matrix <- as.matrix(wide_df[, -1])
rownames(compound_matrix) <- wide_df$species

# 从data.table的结果转矩阵同理
compound_matrix <- as.matrix(wide_dt[, -1])
rownames(compound_matrix) <- wide_dt$species

内容的提问来源于stack exchange，提问作者Yuan.guo