如何計算行的均值，同時排除數據幀中行的零值

Question

我正在嘗試計算數據框中每行的平均值。每行都有零，我想從計算中排除這些。我不想刪除整行，但只刪除零，並計算每行中的剩餘值的平均值。如果行的結果全部爲零，則結果應爲零。

Answer 1

如何

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零比較兩次。

Answer 2

或者你可以做的是分配NA到零，這實際上是你想要做什麼。一些樣本數據：

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

，並使用rowMeans的ifelse是檢查是完全NA行。該na.rm說法是很重要的位置：

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