R'de geometrik ortalama nasıl hesaplanır (örneklerle)
R’deki bir sayı kümesinin geometrik ortalamasını hesaplamak için aşağıdaki sözdizimini kullanabilirsiniz:
exp(mean(log(x)))
Aşağıdaki örnekler bu fonksiyonun pratikte nasıl kullanılacağını göstermektedir.
Örnek 1: Vektörün geometrik ortalamasını hesaplayın
Aşağıdaki kod, R’deki tek bir vektörün geometrik ortalamasının nasıl hesaplanacağını gösterir:
#definevector x <- c(4, 8, 9, 9, 12, 14, 17) #calculate geometric mean of values in vector exp(mean(log(x))) [1] 9.579479
Örnek 2: Sıfırlı bir vektörün geometrik ortalamasını hesaplayın
Vektörünüz sıfır veya negatif sayılar içeriyorsa yukarıdaki formül 0 veya NaN değerini döndürür.
Geometrik ortalamayı hesaplarken sıfırları ve negatif sayıları göz ardı etmek için aşağıdaki formülü kullanabilirsiniz:
#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
Örnek 3: Veri çerçevesindeki sütunların geometrik ortalamasını hesaplayın
Aşağıdaki kod, bir veri çerçevesindeki bir sütunun geometrik ortalamasının nasıl hesaplanacağını gösterir:
#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
Aşağıdaki kod, bir veri çerçevesindeki birden çok sütunun geometrik ortalamasının nasıl hesaplanacağını gösterir:
#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
Ek kaynaklar
R’de grup başına ortalama nasıl hesaplanır
R’de ağırlıklı ortalama nasıl hesaplanır
R cinsinden ortalamanın standart hatası nasıl hesaplanır?