R语言：在字符向量中查找满足双条件的目标元素

嘿，我懂你要解决的问题了——从竖线分隔的字符向量里挑出**倒数第二个值是currentVal、最后一个是nextVal**的元素，而且原代码不够优雅还慢，对吧？下面给你几个更高效简洁的方案，按需选就行：

这个方法完全不用分割整个字符串，直接用正则匹配字符串结尾的两个目标字段，底层是C实现的向量化操作，速度拉满，代码也极简。

先拿你的示例数据来演示：

library(stringr)
myVector <- c("a|b|c", "f|o|o", "b|a|r", "f|c|v")
currentVal <- "o"
nextVal <- "o"

构造匹配结尾的正则，用grepl筛选：

# 正则逻辑：任意内容 + | + currentVal + | + nextVal + 字符串结束
pattern <- paste0(".*\\|", currentVal, "\\|", nextVal, "$")
result <- myVector[grepl(pattern, myVector)]
# 输出结果："f|o|o"

如果currentVal或nextVal里有正则特殊字符（比如.、*这类），别忘用fixed=TRUE跳过正则解析，更安全：

# 用str_ends直接匹配结尾，配合fixed模式避免转义麻烦
pattern <- paste0("|", currentVal, "|", nextVal)
result <- myVector[str_ends(myVector, pattern, fixed = TRUE)]

要是你之后还要用到各个字段的值，就用向量化分割工具，比循环处理快N倍。比如用stringi（比stringr的分割更快）或者data.table：

用stringi实现 #

library(stringi)
# 把每个元素分割成字段列表
split_list <- stri_split_fixed(myVector, "|", simplify = FALSE)
# 向量化提取每个元素的最后两个字段
last_two <- sapply(split_list, function(x) tail(x, 2))
# 筛选符合条件的元素
result <- myVector[last_two[1,] == currentVal & last_two[2,] == nextVal]

用data.table实现（超大向量首选） #

data.table的分割和筛选都是高度优化的，处理十万级以上的向量毫无压力：

library(data.table)
dt <- data.table(vec = myVector)
# 把每个元素分割后，提取倒数第二个和最后一个字段
dt[, c("penultimate", "last") := {
  split_cols <- tstrsplit(vec, "|", fixed = TRUE)
  list(
    sapply(split_cols, function(x) x[length(x)-1]),
    sapply(split_cols, function(x) x[length(x)])
  )
}]
# 筛选目标元素
result <- dt[penultimate == currentVal & last == nextVal, vec]

• 方案1完全跳过分割操作，直接匹配结尾，内存占用小、速度最快，只需要筛选的话选它准没错。
• 方案2用向量化操作替代循环遍历，避免了逐个处理元素的低效，大向量场景下优势特别明显。

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