r中两个表之间的特定值子集替换

Question

我想将b列表1中的某个值替换为b列表2中的值 IF a列表1中的值等于a列表2中的值.

我试过这个，但它给了我一个关于替换长度问题的错误

table1$b[is.na(match(table1$a, 
table2$a))] <- 
as.character(table2$b[match(table1$a, 
table2$a)])

这是我正在处理的数据示例：

table1 <- data.frame (a = 
c("OP2775iia","OP2775iib","OP2958i_a","OP2958i_b","OP2958iia"),
                   b = c(COM,NA,NA,NA,COM))


table2 <- data.frame (a = c("OP2775iib","OP2958i_b"),
                      b = c(SAV,PAV))

我想要一个输出，其中 table1 条目 'OP2775iib' 和 'OP2958i_b' 的 b 列值分别更改为 'SAV' 和 'PAV'。

Answer 1

这是一个使用merge的选项：

table1 <- data.frame (a = c("OP2775iia","OP2775iib","OP2958i_a","OP2958i_b","OP2958iia"),
  b = c("COM",NA,NA,NA,"COM"), stringsAsFactors = F)

table2 <- data.frame (a = c("OP2775iib","OP2958i_b"),
  b = c("SAV","PAV"), stringsAsFactors = F)

names(table2) <- c("a", "b2")


(table3 <- merge(x = table1, y = table2, all.x = TRUE))
table3$bnew <- with(table3, ifelse(!is.na(b2), b2, b))
table3

#           a    b   b2 bnew
# 1 OP2775iia  COM <NA>  COM
# 2 OP2775iib <NA>  SAV  SAV
# 3 OP2958i_a <NA> <NA> <NA>
# 4 OP2958i_b <NA>  PAV  PAV
# 5 OP2958iia  COM <NA>  COM