（1）中的R检索在O列表元素

Question

假设我有以下：现在

a <- vector('list',50) 

for(i in 1:50) 
{ 
    a[[i]] <- list(path=paste0("file",sample(0:600,1)),contents=sample(1:5,10*i,replace=TRUE)) 
} 

，例如;我想尽可能快地检索file45（假设它存在于这个随机生成的数据中）的内容。

我曾尝试以下：

contents <- unlist(Filter(function(x) x$path=="file45",a),recursive=FALSE)$contents 

但是，列表搜索开销使得从内存不是直接从磁盘读取（在某种程度上）更慢读。

是否有任何其他方式检索内容的速度比从磁盘理想地读取O（1）更快？

编辑：假设有在我的子列表中没有重复filepaths并有很大程度上超过50个子列表

Answer 1

使用names属性跟踪的项目相反：

a <- vector('list',50) 

for(i in 1:50) 
{ 
    a[[i]] <- list(contents=sample(1:5,10*i,replace=TRUE)) 
} 

names(a) <- paste0("file",sample(1:600,50)) 

a[["file45"]] 
NULL 
a[["file25"]] 
$contents 
[1] 3 1 3 1 2 5 1 5 1 2 3 1 4 1 1 4 1 5 1 5 1 4 5 2 5 2 2 5 1 1 

Answer 2

尝试以下操作：

a[sapply(a, function(x) x$path == "file45")][[1]]$contents