拆分列表并将第一个值保留在R中

Question

在下面的列表中，我想保留每个项目的第一个值。

[[1]]
[1] "Avatar" "\xe6"  
[[2]]
[1] "Pirates of the Caribbean: At World's End" "\xe6"                                    
[[3]]
[1] "Spectre" "\xe6"   

外观

[[1]]
[1] "Avatar" 
[[2]]
[1] "Pirates of the Caribbean: At World's End"                                 
[[3]]
[1] "Spectre"

Answer 1

一个选项是lapply

lapply(lst1, `[`, 1)

或将first与map一起使用

library(purrr)
map(lst1, first)