在R语言中提取特定字符串所在列后续列值至列表的高效方法

首先先明确你的数据集（去掉标注的**）：

df <- data.frame(
  col1 = c(letters[1:4],"a"),
  col2 = 1:5,
  col3 = letters[10:14], 
  col4 = 6:10,
  col5 = 11:15,
  col6 = letters[14:10],
  col7 = 16:20,
  stringsAsFactors = FALSE
)

你需要每行找到第一个出现"n"、"m"或数值13的列，然后提取该列之后的所有值。这里有两种高效的方法，都比手动循环更简洁快速：

方法1：基础R的apply族函数 #

这种方法无需额外包，适合基础R用户：

# 定义目标匹配值
targets <- c("n", "m", "13")

# 转换为字符矩阵，统一处理数值和字符串匹配
df_char <- as.matrix(df)

# 逐行找到第一个匹配目标的列索引
first_match <- apply(df_char, 1, function(row) {
  idx <- which(row %in% targets)[1]
  ifelse(is.na(idx), length(row) + 1, idx)
})

# 提取每行匹配位置之后的所有值并合并
result <- unlist(mapply(function(row, pos) {
  if (pos < length(row)) row[(pos + 1):length(row)] else NULL
}, split(df_char, seq(nrow(df_char))), first_match))

# 查看结果
result

方法2：tidyverse风格（dplyr + purrr） #

如果你习惯tidyverse工具链，可以用这种更直观的写法：

library(dplyr)
library(purrr)

result <- df %>%
  rowwise() %>%
  mutate(
    # 定位第一个匹配目标的列位置
    match_pos = which(c_across(everything()) %in% targets)[1],
    # 提取匹配列之后的所有值，存为列表
    extracted = list(if (!is.na(match_pos)) c_across((match_pos+1):last_col()) else NULL)
  ) %>%
  pull(extracted) %>%
  unlist()

# 查看结果
result

两种方法运行后都会得到你预期的输出："16" "17" "l" "18" "9" "14" "k" "19" "10" "15" "j" "20"。如果需要部分值转换为数值类型，可以用type.convert(result, as.is = TRUE)来自动识别类型。

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