你遇到的这个需求在R里很常见，咱们来一步步解决它。先明确你的原始列表：

mylist <- list(c("25","0"), c("50","1"), c("100","2"))

你之前尝试的mylist[[]][1]、mylist[[.]][1]这些方法行不通，核心原因是[[]]是用来提取单个列表元素的语法，没办法批量遍历所有子列表。下面给你几个高效的实现方案：

方法1：基础R的sapply()（简洁通用） #

这是最常用的基础R写法，直观又省事：

sapply(mylist, `[`, 1)

这里的[是R里的元素提取函数，sapply会自动遍历mylist里的每个子列表，给每个子列表调用[函数并传入参数1——也就是取每个子列表的第一个元素。运行后会直接得到你想要的字符向量："25" "50" "100"

方法2：基础R的vapply()（类型更严谨） #

如果需要严格控制返回值的类型，vapply比sapply更安全，它要求你提前定义输出格式，避免意外的类型转换：

vapply(mylist, `[`, FUN.VALUE = character(1), 1)

FUN.VALUE = character(1)指定了每个子列表提取后返回单个字符，结果和上面一致，但在处理大型数据或需要严格类型校验的场景下更可靠。

方法3：tidyverse风格的map_chr()（可读性拉满） #

如果你习惯用tidyverse生态的工具，purrr包的map_chr可以让代码更易读，直接返回字符向量：

library(purrr)
map_chr(mylist, ~ .x[1])

这里的~ .x[1]是匿名函数，.x代表遍历到的每个子列表，map_chr则确保最终返回的是字符向量，非常符合tidyverse的代码风格。

补充：为什么你之前的方法失败？ #

• mylist[[]][1]：mylist[[]]等价于mylist[[1]]（未指定索引时默认取第一个元素），所以你实际只提取了第一个子列表的第一个元素，再套[1]还是同一个值，没法批量处理所有子列表。
• mylist[1:3][1]：mylist[1:3]用单括号[]返回的还是一个列表（原列表本身），再[1]只是取这个列表的第一个子列表，不是每个子列表的第一个元素。

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