如何在R语言中提取列表内每个字符串的前3个字符？

方法1：基础R的lapply() + substr() #

这是最直接的基础R解决方案，用lapply()遍历列表的每个元素，再通过substr()提取字符串的前3个字符：

# 示例数据
mylist <- list(c("atgtgt"), c("cgcgatat"), c("cgccccc"))

# 提取前3个字符
result <- lapply(mylist, function(x) substr(x, start = 1, stop = 3))

# 查看结果
result

运行后输出：

[[1]]
[1] "atg"

[[2]]
[1] "cgc"

[[3]]
[1] "cgc"

方法2：使用purrr包的map()函数（适合tidyverse用户） #

如果习惯tidyverse工具链，可用purrr::map()替代lapply()，语法更简洁：

library(purrr)

result <- map(mylist, ~substr(.x, 1, 3))

补充说明 #

• substr(x, start, stop)里的start=1和stop=3明确指定提取从第1个到第3个字符的子串。
• 由于你的列表每个元素都是长度为1的字符向量，无需额外处理向量长度，直接提取即可。

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