dplyrを使用して名前のベクトルを新しい名前に置き換えよう

Question

これは、エレガントに解決できるはずのdplyrを使用する方法をまだ考えていないか、見つけていないという問題です。

私は各IDに関連付けられた名前を持つ元のデータフレームを持っていると言います。

original_data <- data.frame(id = 1:10, name = letters[1:10], stringsAsFactors = F) 

そこから、元のデータフレーム内の名前を持つデータフレームが置き換えられます。

replacement_dataframe <- data.frame(old_name = c("a","b", "c"), 
            new_name = c("abra", "banana", "coconut"), 
            stringsAsFactors = F) 

私は通常、私はdplyr使用したいが、そのようにまだそれを考え出したていない操作を行うと、

original_data$name[original_data$name == "a"] <- "abra" 
original_data$name[original_data$name == "b"] <- "banana" 
original_data$name[original_data$name == "c"] <- "coconut" 

Answer 1

これが機能するようになりました：

ind <- match(original_data$name, replacement_dataframe$old_name) 
original_data$name[!is.na(ind)] <- replacement_dataframe$new_name[ind[!is.na(ind)]] 

Answer 2

PythonとRの両方で作業しているため、これをお勧めします。

map=c("a"="abra","b"="banana","c"="coconut") 

original_data$name[!is.na(map[original_data$name])]=map[original_data$name][!is.na(map[original_data$name])] 


> original_data 
    id name 
1 1 abra 
2 2 banana 
3 3 coconut 
4 4  d 
5 5  e 
6 6  f 
7 7  g 
8 8  h 
9 9  i 
10 10  j 

EDIT：@ Damianの方法、はるかに素敵です。

original_data %>% mutate(name = ifelse(name %in% names(map), map[name], name)) 

EDIT2：map作成するための

map <- replacement_dataframe$new_name 
names(map) <- replacement_dataframe$old_name