r - 通过排除任何给定的数字来计算平均值，中位数

Question

我有一个大小为5000 * 5000的矩阵，其90％的值为0。是否有现成的解决方案可用来计算排除“0”后该矩阵的均值，中位数？

一种粗制解决方案是将所有0更改为NA并使用

 median(x, na.rm=TRUE)

另一种解决方案是手动扫描矩阵并创建另一个包含值的向量，然后找出平均值，中位数等。

还有其他更好的选择吗？

Answer 1

如果您想要整体矩阵的中位数和均值，请尝试以下

median(x[x>0])
mean(x[x>0])

如果要中位数和均值明智

apply(x,1,function(x){mean(x[x>0])})
apply(x,1,function(x){median(x[x>0])})

如果您想要中位数和卑鄙的智慧

apply(x,2,function(x){mean(x[x>0])})
apply(x,2,function(x){median(x[x>0])})