Comment calculer les moyennes des lignes tout en excluant les valeurs nulles des lignes du bloc de données

Je suis en train de calculer la moyenne de chaque ligne dans mon bloc de données. Il y a de zéros dans chaque ligne et je tiens à les exclure de calcul. Je ne veux pas supprimer la ligne entière, mais seulement les zéros et de calculer la moyenne de remaing valeurs de chaque ligne. Si la ligne a toutes les valeurs nulles que le résultat doit être égal à Zéro.

source d'informationauteur Gongon

  1. 19

    Comment sur

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

    ?

    Il me semble qu'il pourrait être légèrement rapide de faire 

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

    c'est à dire essayer d'éviter de faire la comparaison de x avec zéro deux fois.

  2. 13

    Ou ce que vous pourriez faire est d'attribuer NA à zéro, ce qui est effectivement ce que vous voulez faire. Quelques exemples de données:

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

    et l'utilisation rowMeansle ifelse est de vérifier pour les lignes qui sont entièrement NA. Le na.rm argument est important ici:

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