R语言strsplit分割后提取倒数第二个元素的方法疑问

你的当前方法不可行，原因很简单：你在sapply里传入的索引是固定的1，这会提取每个子向量的第一个元素，而非你想要的倒数第二个元素。下面我们一步步拆解问题并给出正确的实现方式：

先明确你的输入场景 #

假设你的example是strsplit处理后的列表，结构如下：

example <- list(c("1", "2", "3", "4", "5"), c("4", "5", "6", "7", "8", "9"))

为什么原代码不符合预期？ #

执行example <- sapply(example, "[", 1)时，"["函数会接收每个子向量和固定索引1，最终返回的是每个子列表的第1个元素："1" "4"，这显然和你想要的"4" "8"不符。

正确的实现方式 #

要提取每个子向量的倒数第二个元素，需要动态计算每个子向量的长度，用长度减1作为索引，有两种常用的写法：

基础R写法（无需额外包） #

用sapply结合匿名函数，动态获取每个子向量的长度：

sapply(example, function(x) x[length(x) - 1])

运行这段代码后，你会得到预期的结果："4" "8"

tidyverse风格写法（需purrr包） #

如果你习惯使用tidyverse工具链，可以用purrr的map_chr函数，代码更简洁：

library(purrr)
map_chr(example, ~ .x[length(.x) - 1])

额外的边界处理（可选） #

如果你的列表中存在长度小于2的子向量（比如只有1个元素），上面的代码会返回NA。如果你想处理这种情况，可以添加条件判断：

sapply(example, function(x) {
  if (length(x) >= 2) x[length(x) - 1] else NA_character_
})

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