Wie kann ich die Mittel von Zeilen berechnen, während die Nullwerte aus Zeilen im Datenrahmen

Question

auszuschließen Ich versuche, den Mittelwert jeder Zeile in meinem Datenrahmen zu berechnen. In jeder Zeile sind Nullen und ich möchte diese aus der Berechnung ausschließen. Ich möchte nicht die gesamte Zeile entfernen, sondern nur die Nullen und den Mittelwert der verbleibenden Werte in jeder Zeile berechnen. Wenn die Zeile alle Nullwerte enthält, sollte das Ergebnis Null sein.

Answer 1

Wie wäre es

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

?

Es fällt mir ein, dass es geringfügig schneller zu tun

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

d versuchen könnte tun den Vergleich von x mit Null zweimal zu vermeiden.

Answer 2

Oder was Sie tun könnten, ist NA zu Null zuweisen, was effektiv ist, was Sie tun möchten. Einige Beispieldaten:

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

und rowMeans verwenden, die ifelse ist für Zeilen zu überprüfen, die vollständig NA sind. Das Argument na.rm ist hier wichtig:

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