多個數字的索引數字向量列表

我有一個列表，其中有1s和2s的不同長度向量，我試圖根據nchar和標識，即1, 2, c(1,1), c(2,2), c(2,1), c(1,2)拉出向量。我的問題是確定包含組合c(1,1), c(2,2), c(2,1), c(1,2)的nchar > 1的載體。多個數字的索引數字向量列表

#dummy code 

`T1,T2` <- 1 
`T2,T1` <- 2 
`T2,T3` <- c(2,1) 
`T3,T2` <- c(2,2) 
`T3,T4` <- c(1,1) 
`T4,T4` <- c(1,2) 
lst <- list(`T1,T2`=`T1,T2`, `T2,T1`=`T2,T1`, `T2,T3`=`T2,T3`, `T3,T2`=`T3,T2`, `T3,T4`=`T3,T4`, `T4,T4`=`T4,T4`) 

single <- lst[nchar(lst)==1] # only lists with nchar==1 
multiple <- lst[nchar(lst) > 1] # only lists with nchar > 1 

# identify single lists which contain 1s and 2s 
single_1s <- single[single==1] # single vectors for 1s 
single_2s <- single[single==2] # single vectors for 2s

我該怎麼做我的例子中的多個列表相同？

嘗試識別包含任何組合c(1,1), c(2,2), c(2,1), c(1,2)的多個列表，例如，

multiple[multiple==c(1,1)] # Does not work

任何指針將高度讚賞，感謝

來源

2014-11-21 jO.

'多個[sapply（倍數，函數（x）的所有（x == C（1 ，1）））]' – akrun 2014-11-21 11:05:20

整潔！十分感謝！ – 2014-11-21 11:07:05

是否需要列表中的所有匹配 – akrun 2014-11-21 11:07:32

您可以創建所有那些需要進行匹配的矢量的list。然後使用lapply/sapply和==到的indxlst每個元素與multiple

indxlst <- list(c(1,1), c(2,2), c(2,1), c(1,2)) 
lapply(indxlst, function(x) 
     multiple[sapply(multiple, function(y) all(y==x))])

匹配如果需要count

sapply(indxlst, function(x) sum(sapply(multiple, 
           function(y) all(y==x))))

來源

2014-11-21 11:10:13 akrun

完美，非常感謝！ :) – 2014-11-21 11:15:22

多個數字的索引數字向量列表

回答

相關問題