Сопоставьте значения в кадре данных со значениями в другом кадре данных и замените прежний соответствующим шаблоном из другого кадра данных

Сложное название, но вот простой пример того, чего я пытаюсь достичь:

d <- data.frame(v1 = c(1,2,3,4,5,6,7,8), 
                v2 = c("A","E","C","B","B","C","A","E"))

m <- data.frame(v3 = c("D","E","A","C","D","B"), 
                v4 = c("d","e","a","c","d","b"))

Значения в d$v2 должны быть заменены значениями в m$v4, сопоставляя значения из d$v2 в m$v3

Результирующий фрейм данных d должен выглядеть так:

Я пробовал разные вещи, и ближе всего я пришел: d$v2 <- m$v4[which(m$v3 %in% d$v2)]

Я пытаюсь избежать повторных циклов! Должно быть возможно:-) как-то...;)

Ответ 1

Вы можете попробовать:

merge(d,m, by.x="v2", by.y="v3")
  v2 v1 v4
1  A  1  a
2  A  7  a
3  B  4  b
4  B  5  b
5  C  3  c
6  C  6  c
7  E  2  e
8  E  8  e

Изменить

Вот еще один подход, чтобы сохранить порядок:

data.frame(v1=d$v1, v4=m[match(d$v2, m$v3), 2])
  v1 v4
1  1  a
2  2  e
3  3  c
4  4  b
5  5  b
6  6  c
7  7  a
8  8  e

Ответ 2

Вы можете использовать стандартное левое соединение.

Загрузка данных:

d <- data.frame(v1 = c(1,2,3,4,5,6,7,8), v2 = c("A","E","C","B","B","C","A","E"), stringsAsFactors=F)
m <- data.frame(v3 = c("D","E","A","C","D","B"), v4 = c("d","e","a","c","d","b"), stringsAsFactors=F)

Изменение имени столбца, чтобы я мог присоединиться к столбцу "v2"

colnames(m) <- c("v2", "v4")

Левое соединение и поддержание порядка data.frame d

library(dplyr)
left_join(d, m)

Вывод: