left_join из пакета dplyr

[VistaSV30]

Добрый день!
Как присвоить значения по условию

Код: Выделить всё

v1 <- c("cars", "cars1", "car", "car2")
v2 <- 1:4
vv <- data.frame(v1,v2)

v3 <- c("cars", "car")
v4 <- 10:11
vz <- data.frame(v3, v4)

Есть два data.frame - vv и vz
Надо vv$v2 присвоить значения vz$v4 по условию vv$v1 == vz$v3

Так не получается
vv$v2[vv$v1 == vz$v3] <- vz$v4[vv$v1 == vz$v3]

Подскажите, пожалуйста, как сделать?
Спасибо!

[nickleb]

Здравствуйте.
М.б., дело в том, что при генерации Ваших data.frame'ов
не даёте опцию "stringsAsFactors = FALSE" ?
Попробуйте заменить строки кода создания data.frame'ов на:

Код: Выделить всё

vv <- data.frame(v1,v2, stringsAsFactors = FALSE)
vz <- data.frame(v3, v4, stringsAsFactors = FALSE)

и проверить получите ли, что хотели. - Сам я не проверял.

[gamm]

vv$v1 == vz$v3

С точки зрения программы написана какая-то непонятная ерунда. Если нужно использовать vz как справочник для перекодировки значений в vv, то есть match(), merge() и прочие sqldf::sqldf().

[VistaSV30]

Проблема решена!
В пакете dplyr есть функция left_join() - работает как в SQL запрос на выборку с объединением

Код: Выделить всё

set.seed(1)
(A <- data.frame(a1=LETTERS[1:3], a2=sample(10:99,3), a3=sample(0:9,3), a4=sample(0:9,3)) )
B <- data.frame(b1=LETTERS[sample(1:3, 50,replace = T)], b2=sample(10:99,50)) 

library(dplyr)
left_join(B,A, by=c("b1"="a1")) # присоединяем все столбцы
left_join(B,select(A, a1,a2), by=c("b1"="a1")) # присоединяем один столбец

Присоединять можно и по двум ключам, синтаксис такой
left_join(B,A, by=c("b1"="a1","b2"="a2"))