r - 如何计算行的平均值，同时从数据框中的行中排除零值

Question

我正在尝试计算数据框中每一行的平均值。每行都有零，我想从计算中排除这些。我不想删除整行，只删除零并计算每行中剩余值的平均值。如果行的值全为零，则结果应为零。

score 20 · Accepted Answer

怎么样

nzmean <- function(x) {
    if (all(x==0)) 0 else mean(x[x!=0])
}
apply(mydata,1,nzmean)

?

在我看来，它可能会稍微快一点

nzmean <- function(x) {
    zvals <- x==0
    if (all(zvals)) 0 else mean(x[!zvals])
}

即尽量避免x与零进行两次比较。

score 15 · Accepted Answer

或者您可以做的是分配NA为零，这实际上是您想要做的。一些样本数据：

spam = matrix(runif(100), 10, 10)
spam[1,2] = 0
spam[4,3] = 0
spam[10,] = 0
spam[spam == 0] <- NA

并使用rowMeans, ifelseis 检查完全是NA. 这个na.rm论点在这里很重要：

mean_values = rowMeans(spam, na.rm = TRUE)
mean_values = ifelse(is.na(mean_values), 0, mean_values)

2 回答 2