r - 仅在添加数字时将 NA 视为零

Question

计算两个数据表之和时，NA+n=NA .

> dt1 <- data.table(Name=c("Joe","Ann"), "1"=c(0,NA), "2"=c(3,NA))
> dt1
   Name  1  2
1:  Joe  0  3
2:  Ann NA NA
> dt2 <- data.table(Name=c("Joe","Ann"), "1"=c(0,NA), "2"=c(2,3))
> dt2
   Name  1 2
1:  Joe  0 2
2:  Ann NA 3
> dtsum  <- rbind(dt1, dt2)[, lapply(.SD, sum), by=Name]
> dtsum
   Name  1  2
1:  Joe  0  5
2:  Ann NA NA

我不想用 0 替换所有 NA。我想要的是 NA+NA=NA和 NA+n=n得到以下结果:

   Name  1  2
1:  Joe  0  5
2:  Ann NA  3

这是如何在 R 中完成的？

更新:删除了 dt1 中的错字

Answer 1

你可以定义你自己的函数来按照你的意愿行事

plus <- function(x) {
 if(all(is.na(x))){
   c(x[0],NA)} else {
   sum(x,na.rm = TRUE)}
 }


rbind(dt1, dt2)[,lapply(.SD, plus), by = Name]