R如何从多列表数据结构中提取整数向量

Question

我在 R 中工作，试图从列表数据结构中提取数字向量。这是一个可重现的小示例，它反映了更大数据集的结构。

# Create a reproducible example multi-level list structure 
mylist <- list()
mylist$`1` <- c("barcodes","data")
mylist$`2` <- c("barcodes","data")
mylist$`3` <- c("barcodes","data")
mylist$`1`$barcodes <- c(1:50)
mylist$`2`$barcodes <- c(50:200)
mylist$`3`$barcodes <- c(1:200)

我能够使用以下命令成功生成我需要的数据，称为numbers。然而，这需要我对每个感兴趣的数据集进行硬编码，这并不理想。

numbers <- c(mylist$`1`$barcodes[1:5],
             mylist$`3`$barcodes[1:5])

#This does achieve the desired result 
#> numbers
#[1] 1 2 3 4 5 1 2 3 4 5

我正在尝试以高吞吐量的方式执行此操作，而无需硬编码。以下是我的尝试。

nums_of_interest <- c(1,3)
numbers <- c(gsub(" ", "", paste("mylist$'",nums_of_interest,"'$barcodes[1:5]")))

# This does not achieve the desired result
#> numbers
#[1] "mylist$'1'$barcodes[1:5]" "mylist$'3'$barcodes[1:5]"

我正在努力寻找一种方法来以高吞吐量的方式提取感兴趣的1 2 3 4 5 1 2 3 4 5 感兴趣的数字。

Answer 1

这是lapply 的一个选项。第一行从您的列表中提取"barcodes"，它返回一个列表。

lst <- lapply(mylist, `[[`, "barcodes")

现在，当我们从lst 的一个子集（即lst[nums_of_interest]）中提取前 5 个条目时，我们几乎再次执行相同的操作。

nums_of_interest <- c(1, 3)
(numbers <- lapply(lst[nums_of_interest], `[`, 1:5))
#$`1`
#[1] 1 2 3 4 5
#
#$`3`
#[1] 1 2 3 4 5

由于numbers 是一个列表，但您想要一个向量作为回报，使用unlist（和unname）来获得所需的输出。

unname(unlist(numbers))
# [1] 1 2 3 4 5 1 2 3 4 5

---

或与@avid_user 合作的一行

unname(unlist(lapply(mylist[nums_of_interest], function(x) x[['barcodes']][1:5])))

Answer 2

与map:

library(purrr)

num_of_interst <- c(1,3)
numbers <- unlist(map(mylist[num_of_interst], ~.[["barcodes"]][1:5]))