So berechnen sie das geometrische mittel in r (mit beispielen)
Mit der folgenden Syntax können Sie das geometrische Mittel einer Zahlenmenge in R berechnen:
exp(mean(log(x)))
Die folgenden Beispiele zeigen, wie Sie diese Funktion in der Praxis nutzen können.
Beispiel 1: Berechnen Sie das geometrische Mittel des Vektors
Der folgende Code zeigt, wie das geometrische Mittel eines einzelnen Vektors in R berechnet wird:
#definevector x <- c(4, 8, 9, 9, 12, 14, 17) #calculate geometric mean of values in vector exp(mean(log(x))) [1] 9.579479
Beispiel 2: Berechnen Sie das geometrische Mittel eines Vektors mit Nullen
Wenn Ihr Vektor Nullen oder negative Zahlen enthält, gibt die obige Formel eine 0 oder eine NaN zurück.
Um Nullen und negative Zahlen bei der Berechnung des geometrischen Mittels zu ignorieren, können Sie die folgende Formel verwenden:
#define vector with some zeros and negative numbers x <- c(4, 8, 9, 9, 12, 14, 17, 0, -4) #calculate geometric mean of values in vector exp(mean(log(x[x > 0]))) [1] 9.579479
Beispiel 3: Berechnen Sie das geometrische Mittel der Spalten im Datenrahmen
Der folgende Code zeigt, wie das geometrische Mittel einer Spalte in einem Datenrahmen berechnet wird:
#define data frame df <- data. frame (a=c(1, 3, 4, 6, 8, 8, 9), b=c(7, 8, 8, 7, 13, 14, 16), c=c(11, 13, 13, 18, 19, 19, 22), d=c(4, 8, 9, 9, 12, 14, 17)) #calculate geometric mean of values in column 'a' exp(mean(log(df$a))) [1] 4.567508
Und der folgende Code zeigt, wie das geometrische Mittel mehrerer Spalten in einem Datenrahmen berechnet wird:
#define data frame df <- data. frame (a=c(1, 3, 4, 6, 8, 8, 9), b=c(7, 8, 8, 7, 13, 14, 16), c=c(11, 13, 13, 18, 19, 19, 22), d=c(4, 8, 9, 9, 12, 14, 17)) #calculate geometric mean of values in column 'a', 'b', and 'd' apply(df[, c(' a ', ' b ', ' d ')], 2, function (x) exp(mean(log(x)))) abd 4.567508 9.871128 9.579479
Zusätzliche Ressourcen
So berechnen Sie den Mittelwert pro Gruppe in R
So berechnen Sie einen gewichteten Durchschnitt in R
So berechnen Sie den Standardfehler des Mittelwerts in R