Сложное название, но вот простой пример того, чего я пытаюсь достичь:
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 должен выглядеть так:
v1 v4
1 a
2 e
3 c
4 b
5 b
6 c
7 a
8 e
Я пробовал разные вещи, и ближе всего я пришел: d$v2 <- m$v4[which(m$v3 %in% d$v2)]
Я пытаюсь избежать повторных циклов! Должно быть возможно:-) как-то...;)
Вы можете попробовать:
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
Вы можете использовать стандартное левое соединение.
Загрузка данных:
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)
Вывод:
v1 v2 v4
1 1 A a
2 2 E e
3 3 C c
4 4 B b
5 5 B b
6 6 C c
7 7 A a
8 8 E e