R 如何使用列表中多个列表中的第一条记录创建数据框

发布于03月19日

我有一个列表'lst'的大列表，我想把列表中的第一条记录拉到一个数据框中.我怎么能做到呢.

我想使用循环来拉取记录，但却被困在如何将记录堆叠成一个pdf coll.我有如下代码:

for(i in 1:length(lst)) {
   df[i] <- lst[[i]][[1]][1]
}

电流输出不是我想要的.我需要df$record个存储lst[[i]][[1]][1]个.创建这样的数据框架是一个聪明的吗？

示例lst可以使用以下代码创建:

lst<- list(list(c("Class A", "86", "Missing")),
     list(c("Class B", "76", "Delay")),
     list(c("Class A", "88", "Missing")),
     list(c("Class D", "Missing", "56")))

推荐答案

Base R解决方案

您可以使用c()索引多个级别，即

# They are both "Class A"
lst[[1]][[1]][1] == lst[[c(1,1,1)]]

因此，要提取每个子列表的第一个向量的第一个元素，我们可以这样做:

data.frame(
    record = vapply(lst, \(l) l[[c(1,1)]], character(1))
)
#    record
# 1 Class A
# 2 Class B
# 3 Class A
# 4 Class D

`tidyverse` solution

如果你想要一个tidyverse解决方案，你也可以使用purrr::pluck()，并提供一个访问函数来提取第一个元素:

library(purrr)
map_chr(
    lst, 
    \(l) pluck(l, 1, \(x) x[1])
)  |>
    dplyr::as_tibble()  |>
    set_names("record")

# # A tibble: 4 × 1
#   record 
#   <chr>  
# 1 Class A
# 2 Class B
# 3 Class A
# 4 Class D