如何将R数据框的行按指定元素拆分为列表的列表

实现思路 #

针对数据框的每一列向量，检查是否存在字符串"-99"：

• 若不存在，直接保留原向量；
• 若存在，将向量拆分为"-99"之前的部分和之后的部分（排除"-99"本身），并包装为嵌套列表结构。

代码实现 #

# 定义拆分函数
split_by_minus99 <- function(vec) {
  # 定位"-99"的位置
  split_pos <- which(vec == "-99")
  if (length(split_pos) == 0) {
    # 无匹配元素，返回原向量
    vec
  } else {
    # 拆分出前后段，排除"-99"
    segment_before <- vec[1:(split_pos - 1)]
    segment_after <- vec[(split_pos + 1):length(vec)]
    # 按要求构造嵌套列表
    list(list(segment_before), segment_after)
  }
}

# 对数据框的每一列应用拆分逻辑
final_result <- lapply(data, split_by_minus99)

结果说明 #

运行代码后得到的final_result是包含5个元素的列表，对应原数据框的5列：

• 原x2列（含"-99"）会被拆分为list(list(c("50","20","10","80")), c("100","60"))；
• 原x3列（含"-99"）会被拆分为list(list(c("50","20")), c("80","90","100","60"))；
• 其余无"-99"的列，直接保留原字符向量。

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