用id替换另一个数据帧的NA值

Question

我有一个数据帧df1，如下所示 -

ID Count 
11  345
22  456
33  786
44  765
55  NA
66  888
77  NA

然后我有一个df2如下 -

 ID  Count 
 11  536
 22  654
 33  786
 44  999
 55  890
 66  111
 77  654

我希望NA中的df1值替换为df2中针对这些特定ID的值。

结果df3应为：

ID  Count 
11  345
22  456
33  786
44  765
55  890
66  888
77  654

任何帮助都会很棒 感谢

Answer 1

您可以使用更新联接来编辑第一个表中的那些行：

library(data.table)
setDT(DF1); setDT(DF2)

DF1[is.na(Count), Count := DF2[.SD, on=.(ID), x.Count]]

工作原理

• DF[i, j]按i过滤，然后j
• 因此在j中，.SD是指使用i
过滤后的数据子集
• j :=添加或修改表格中的列
• x[i, on=, x.v]是as described in this similar answer

Answer 2

使用dplyr：

library(dplyr)

df1 %>%
  left_join(df2, by = c("ID")) %>%
  mutate(Count = ifelse(is.na(Count.x), Count.y, Count.x)) %>%
  select(-c(Count.x, Count.y))

这会产生

  ID Count
1 11   345
2 22   456
3 33   786
4 44   765
5 55   890
6 66   888
7 77   654

Answer 3

使用dplyr::coalesce将使任务更简单。

library(dplyr)

df1 %>% inner_join(df2, by= "ID") %>%
  mutate(Count = coalesce(Count.x, Count.y)) %>%
  select(ID, Count)

#   ID Count
# 1 11   345
# 2 22   456
# 3 33   786
# 4 44   765
# 5 55   890
# 6 66   888
# 7 77   654

数据：

df1 <- read.table(text = 
"ID Count 
11  345
22  456
33  786
44  765
55  NA
66  888
77  NA",
header = TRUE)

df2 <- read.table(text = 
"ID  Count 
11  536
22  654
33  786
44  999
55  890
66  111
77  654",
header = TRUE)