返回名稱其中矢量和列表的元素相等

我有列表的列表，每個內部列表中的含有一種或多種載體：返回名稱其中矢量和列表的元素相等

codes <- list(
'traincodes' = list(c('2.29*', '99.49'), c('78.78')), 
'traincodes2' = list(c('02.24*')))

我想要查詢向量d中的每個元素：

d = c('02.24*', '78.78')

是否列出「traincodes」和「traincodes2」包含矢量d的元件的每個第一元件。如果它與列表，它存在的名字返回true載體。

我嘗試沒有sucsessfull：

for (i in seq_along(codes)) 
{for (k in seq_along(codes[[i]])) 
    {l = sapply(codes[[i]][[1]][[k]], function(x) d == x)}}

至極返回不是我想要的

 02.24* 
1 TRUE 
2 FALSE

但是，在大約d的第二的Elemen一個信息 - 78年0.78' ？一般來說我的目的是返回列表，向量和列表的元素相等，東西的名字是這樣的：

 d 
1 traincodes2 
2 Na

來源

2017-04-12 Shin

你可以試試。（我改變了代碼的名稱以使其更易於區分

codes <- list(
'traincodes1' = list(c('2.29*', '99.49'), c('78.78')), 
'traincodes2' = list(c('02.24*'))) 
d = c('02.24*', '78.78') 

unlist(codes)[match(d,unlist(codes,use.names = F))] 
traincodes2 traincodes13 
    "02.24*"  "78.78"

來源

2017-04-12 12:55:12

感謝，但我們能夠避免加入！位置在結果的名字對我們來說只是：traincodes2 traincodes1（不traincodes13）？ – Shin

這是你想要的嗎？

# Your codes. 
    codes <- list(
     traincodes = list(c('2.29*', '99.49'), c('78.78')), 
     traincodes2 = list(c('02.24*'))) 

    # Target. 
    d = c('02.24*', '78.78') 

    # Check where in your code a element of d is found, then extract that element from code and return it. 
enter code here 
    #If you want just the position remove the code[[ ]] 
    lapply(codes, function(code) { 
     code[[which(d %in% code)]] 
    })

$traincodes 
[1] "78.78" 

$traincodes2 
[1] "02.24*"

來源

2017-04-12 10:43:05

返回名稱其中矢量和列表的元素相等

回答

相關問題