r - 根据名称选择列表元素

Question

我有一个命名的向量列表，代表来自 2 个样本“A”和“B”的事件：

l.temp <- list(
SF1_t_A = c(rep(1:10)),
SF2_t_A = c(rep(9:15)),
SF1_t_B = c(rep(8:12)))

l.temp
$SF1_t_A
 [1]  1  2  3  4  5  6  7  8  9 10

$SF2_t_A
[1]  9 10 11 12 13 14 15

$SF1_t_B
[1]  8  9 10 11 12

现在我只想选择来自样本“A”或“B”的列表元素。我可以用一个循环来做这件事，但是当 plyr 出现时，这有点违背了使用 list 的意义。这和变化，是我迄今为止尝试过的：

llply(l.temp , function(l){
    if ((unlist(strsplit(names(l), "_"))[3]) == "A"){ 
                 return(l)}

})

这是我得到的错误：

Error in unlist(strsplit(names(l), "_")) : 
  error in evaluating the argument 'x' in selecting a method for function 'unlist': 
Error in strsplit(names(l), "_") : non-character argument

感谢您对我做错的事情的帮助。

Answer 1

You can find the pattern in the names of the list, which gives you an index of which ones:

 grep("_A$", names(l.temp))

And then use it to subset:

 l.temp[grep("_A$", names(l.temp))]