r - 所选值的平均值

Question

我想取一些列的平均值来形成一列，如下所示：

ffc1$IPC <- rowMeans(ffc1[,c("m5c6j","m5c6g","m5c6c","m5c6h", "m5c6i", "m5c6l", "m5c6m", "m5c6n", "m5c7", "m5d20g", "m5d20j", "m5d20h", "m5d20i", "m5d20l", "m5d20m", "m5d20n", "m5d21", "m5d20c")], na.rm = TRUE)

接下来我检查唯一值：unique(ffc1$IPC)它会产生以下结果：

-3, -2, 1, 4, 3, 3, -1, NA

然后我想用我的列中正值的中值来估算上面的缺失值（NA）。如何调整以下代码以获得所需的输出？

#Impute
ffc1$IPC[is.na(ffc1$IPC)] <- median(ffc1$IPC, na.rm = TRUE)

标签： rmedian

Answer 1

我们可以做

ffc1$IPC[is.na(ffc1$IPC)] <-median(ffc1$IPC[ffc1$IPC > 0], na.rm = TRUE)