Как заменить определенные записи в таблице другой таблицей, используя «merge»?

Question

Я хочу, чтобы заменить «O» в таблице t1 с таблицей t2 с помощью «Объединить»:

t1<-data.frame(x1=c(1,2,3,4,5),x2=c("a","O","O","b","a")) 
t2<-data.frame(x1=c(2,3),x2=c("a","b")) 
first <- merge(t1["x2"=="O",],t2,by="x1") 

Результат должен был быть таким:

t1<-data.frame(x1=c(1,2,3,4,5),x2=c("a","a","b""b","a")) 

Но я не понял ,

В чем проблема?

Answer 1

Возможно, это может быть очищено. Это использует dplyr пакет

first = left_join(t1, t2, by = "x1") %>% 
    mutate(x2 = ifelse(x2.x == "O", as.character(x2.y), as.character(x2.x))) %>% 
    select(x1, x2) 

Answer 2

Я думаю merge грязен здесь (и я бы не стал возиться с этим "O" кодирования). Вы можете сделать

m = match(t1$x1, t2$x1) 
t1$x2[ !is.na(m) ] <- t2$x2[ m[!is.na(m)] ] 

Это не распространяется на объединение более чем одного столбца, поэтому я бы рекомендовал data.table:

library(data.table) 
setDT(t1)[t2, on="x1", x2 := i.x2]