如何在使用dplyr時根據行名替換lookup

Question

已經多次聲明dplyr會丟棄rownames，現在版本0.3已經這樣做了。

我經常用行名稱不同的標識符之間轉換保持在這樣的數據幀：

test <- data.frame(Greek = c("Alpha", "Beta", "Gamma"), Letters = LETTERS[1:3]) 
rownames(test) <-test$Letters 
lookup <- c("C", "B") 
test[lookup, "Greek"] 
[1] Gamma Beta 
Levels: Alpha Beta Gamma 

由於缺乏rownames這個現在失敗dplyr

library(dplyr) 
test <- tbl_df(data.frame(Greek = c("Alpha", "Beta", "Gamma"), Letters = LETTERS[1:3])) 
rownames(test) <-test$Letters 
lookup <- c("C", "B") 
test[lookup, "Greek"] 
Source: local data frame [2 x 1] 

Greek 
1 NA 
2 NA 

我我嘗試過使用filter（）和select（），但找不到解決方案，它保留了查找的順序。

Answer 1

，這一次，您可以與match ES玩：

test[match(lookup,test$Letters),"Greek"] 
[1] Gamma Beta 
Levels: Alpha Beta Gamma 

而且你可以在do包裹，使其dplyr-IC：

test %>% do(`[`(.,match(lookup,.$Letters),)) %>% select(Greek) 
Source: local data frame [2 x 1] 

    Greek 
1 Gamma 
2 Beta 

或者作爲@hadley提到， left_join不在做什麼您尋找：

left_join(data.frame(Letters=lookup),test) %>% select(Greek) 
Joining by: "Letters" 
    Greek 
1 Gamma 
2 Beta