不在其他数据集中的子集值

Question

我的数据集 1 在每列和数据集 2（相同的维度）中都有一些缺失值，但缺失值已估算。

我想从 dataset2 中对 dataset1 中为 NA 的估算值进行子集化。我的原始数据中没有 NA 标志。

我正在使用 R Studio：

#Example
data.org <- as.data.frame( cbind(WT=c(NA,20,55,NA,25), HT= c(55,NA,NA,25,30), CBC=c(NA,10,20,NA,50) ) )
data.imp <- as.data.frame( cbind(WT=c(10,20,55,25,25), HT= c(55,30,55,25,30), CBC=c(15,10,20,40,50) ) )

#output
data.imp.WT <- as.data.frame(cbind(WT=c(10,25)))
data.imp.HT <- as.data.frame(cbind(HT=c(30,55)))
data.imp.CBC <- as.data.frame(cbind(CBC=c(15,40)))

Answer 1

以下给出了缺失值：

data.imp[is.na(data.org)]
#[1] 10 25 30 55 15 40

要按列获得这些值，我们可以使用 Map ：

Map(function(x, y) y[is.na(x)], data.org, data.imp)

#$WT
#[1] 10 25

#$HT
#[1] 30 55

#$CBC
#[1] 15 40