如何使用另一个列表对列表进行子集划分？

Question

我有两个列表，我想使用另一个列表在列表中的数据子集。我说，我有所谓的名单和mylisthislist：

mylist <- list(a = data.frame(cola = 1:3, colb = 4:6), 
      b = data.frame(cola = 1:3, colb = 6:8)) 
> mylist 
$a 
    cola colb 
1 1 4 
2 2 5 
3 3 6 

$b 
    cola colb 
1 1 6 
2 2 7 
3 3 8 

> 

和hislist

hislist <- list(a = 5:6, 
       b = 7:8) 

> hislist 
$a 
[1] 5 6 

$b 
[1] 7 8 

我试图子集MYLIST使用lapply功能：

lapply(mylist, function(x) subset(x, colb %in% hislist)) 
#or 
lapply(mylist, function(x) x[x$colb %in% hislist,]) 

但这些不工作。如何解决这个问题？

Answer 1

最简单的解决方案，我能想到的是使用mapply：

mapply(function(x, y) x[x[, 2] %in% y,], mylist, hislist, SIMPLIFY=FALSE) 
# $a 
# cola colb 
# 2 2 5 
# 3 3 6 
# 
# $b 
# cola colb 
# 2 2 7 
# 3 3 8 

的功能并不比你在当前lapply方法用什么太大的不同。

Answer 2

在您的具体示例中，只需使用unlist for hislist，这将使其成为值的向量。

lapply(mylist, function(x) x[x$colb %in% unlist(hislist),]) 
$a 
    cola colb 
2 2 5 
3 3 6 

$b 
    cola colb 
2 2 11 
3 3 12