在R数据框中转置含非唯一标识符的列

你遇到的问题本质是缺少分组内的唯一标识列，导致spread或pivot_wide无法确定每个值对应到哪一列。只要给每个sp分组内的行添加序号，就能轻松实现转置。以下是几种可行方案：

1. Tidyverse 方案（dplyr + tidyr） #

这是最常用的tidy风格写法：

library(dplyr)
library(tidyr)

# 生成测试数据（固定随机种子确保结果可复现）
set.seed(123)
df <- data.frame(sp = rep(c("A","B","C","D"), each = 10), val = rnorm(40,6,0.1))

# 第一步：给每个sp分组添加组内行号
df <- df %>%
  group_by(sp) %>%
  mutate(row_num = row_number()) %>%
  ungroup()

# 第二步：转成宽格式
wide_df <- df %>%
  pivot_wider(names_from = row_num, values_from = val, names_prefix = "")

# 查看结果
head(wide_df)

2. Base R 方案（无需额外包） #

如果不想加载第三方包，用base R原生函数也能实现：

set.seed(123)
df <- data.frame(sp = rep(c("A","B","C","D"), each = 10), val = rnorm(40,6,0.1))

# 添加组内行号
df$row_num <- ave(rep(1, nrow(df)), df$sp, FUN = seq_along)

# 转宽格式并清理列名
wide_df <- reshape(df, idvar = "sp", timevar = "row_num", direction = "wide")
colnames(wide_df) <- sub("val\\.", "", colnames(wide_df))

print(wide_df)

3. Data.table 方案（大数据高效处理） #

如果你的数据集很大，data.table的性能会更优：

library(data.table)

set.seed(123)
dt <- data.table(sp = rep(c("A","B","C","D"), each = 10), val = rnorm(40,6,0.1))

# 添加行号并转宽
wide_dt <- dt[, row_num := .I - first(.I) + 1, by = sp] %>%
  dcast(sp ~ row_num, value.var = "val")

print(wide_dt)

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