¿Cómo puedo calcular los promedios de filas mientras excluyo los valores cero de las filas en el marco de datos?

Question

Estoy intentando calcular la media de cada fila en mi marco de datos. Hay ceros en cada fila y quiero excluirlos del cálculo. No quiero eliminar toda la fila sino solo los ceros y calcular la media de los valores remanentes en cada fila. Si row tiene todos los valores cero, el resultado debe ser cero.

Answer 1

¿Qué tal

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

?

Se me ocurre que podría ser marginalmente más rápida de hacer

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

es decir, tratar de evitar hacer la comparación de x con cero dos veces.

Answer 2

O lo que podría hacer es asignar NA a cero, que es efectivamente lo que quiere hacer. Algunos datos de la muestra:

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

y utilizar rowMeans, la ifelse es para comprobar si hay filas que son totalmente NA. El argumento na.rm es importante aquí:

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