如何在R中按time和id扩展无对应数值的字符列？

这个问题确实很常见！当我们没有对应的数值变量（比如weight），只是想把同一组（id+time）里的fish种类拆成多列时，直接用spread或者dcast就不太够用了，得先给每个组内的条目加个序号标记，再转宽表就行。我给你两种常用的实现方法：

方法一：使用dplyr + tidyr（tidyverse风格） #

首先先还原你的输入数据：

df <- data.frame(
  id = c(1,1,1,2,2,2),
  time = c(1,1,2,1,1,2),
  fish = c("marlin", "cod", "cod", "salmon", "cod", "cod")
)

接下来按分组生成列名，再转宽表：

library(dplyr)
library(tidyr)

df_processed <- df %>%
  # 按id和time分组，给每组内的fish生成序号后缀
  group_by(id, time) %>%
  mutate(fish_col = paste0("Fish", row_number())) %>%
  ungroup() %>%
  # 将行转成列，空值用NA填充
  pivot_wider(names_from = fish_col, values_from = fish, values_fill = NA)

print(df_processed)

运行后得到的结果就是你想要的：

# A tibble: 4 × 4
     id  time Fish1  Fish2
  <dbl> <dbl> <chr>  <chr>
1     1     1 marlin cod  
2     1     2 cod    NA   
3     2     1 salmon cod  
4     2     2 cod    NA   

方法二：使用data.table（高效处理大数据场景） #

如果你处理的是大数据集，data.table的方法会更高效：

library(data.table)
setDT(df)

# 按id和time分组，生成列名
df[, fish_col := paste0("Fish", seq_len(.N)), by = .(id, time)]
# 转宽表
dcast(df, id + time ~ fish_col, value.var = "fish")

这个方法也会得到和上面一致的输出。

核心思路 #

两种方法的核心都是先给每个分组内的条目生成唯一的列名标识（比如Fish1、Fish2），然后再用宽表转换函数把行数据展开成列，这样就能实现你需要的“将同一组内的fish种类拆分成多列”的需求啦。

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