如何提取R中data.table列的拼接字符串并按分组添加计数器列

针对你给出的data.table数据，要实现按|拆分scores列并纵向展开、按person+task分组生成从0开始的计数器，同时处理空值的问题，可以用以下代码实现：

library(data.table)

# 构造原始数据
V <- data.table(
  person = c(1,1,2,3),
  task = c("A","A","B","C"),
  scores = c("Low|Low|High|Medium","Low","High|Low","")
)

# 核心处理代码
result <- V[, {
  # 拆分scores字符串
  score_list <- unlist(strsplit(scores, "\\|"))
  # 过滤拆分后出现的空字符串（处理原scores为空的情况）
  valid_scores <- score_list[score_list != ""]
  # 仅当有有效分数时生成结果行，同时生成从0开始的计数器
  if (length(valid_scores) > 0) {
    .(score = valid_scores, counter = seq_along(valid_scores) - 1)
  }
}, by = .(person, task)]

# 查看结果
result

执行后输出结果完全符合需求：

person task  score counter
1:     1    A    Low       0
2:     1    A    Low       1
3:     1    A   High       2
4:     1    A Medium       3
5:     1    A    Low       4
6:     2    B   High       0
7:     2    B    Low       1

关键逻辑说明 #

1. 字符串拆分与空值过滤：strsplit处理空字符串时会返回""，通过score_list[score_list != ""]过滤掉无效的空值，避免生成无意义的空score行（比如原数据中person3、taskC的空scores不会出现在结果中）。
2. 分组计数器生成：用seq_along(valid_scores) - 1实现每个person+task分组内从0开始的连续计数，替代手动循环更高效。
3. 空分组跳过：通过if (length(valid_scores) > 0)判断，确保没有有效分数的分组不会生成空行，符合预期输出格式。

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