R में ज्यामितीय माध्य की गणना कैसे करें (उदाहरण के साथ)

आप R में संख्याओं के समूह के ज्यामितीय माध्य की गणना करने के लिए निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 exp(mean(log(x)))

निम्नलिखित उदाहरण दिखाते हैं कि व्यवहार में इस फ़ंक्शन का उपयोग कैसे करें।

उदाहरण 1: वेक्टर के ज्यामितीय माध्य की गणना करें

निम्नलिखित कोड दिखाता है कि आर में एकल वेक्टर के ज्यामितीय माध्य की गणना कैसे करें:

 #definevector
x <- c(4, 8, 9, 9, 12, 14, 17)

#calculate geometric mean of values in vector
exp(mean(log(x)))

[1] 9.579479

उदाहरण 2: शून्य वाले वेक्टर के ज्यामितीय माध्य की गणना करें

यदि आपके वेक्टर में शून्य या ऋणात्मक संख्याएँ हैं, तो उपरोक्त सूत्र 0 या NaN लौटाएगा।

ज्यामितीय माध्य की गणना करते समय शून्य और ऋणात्मक संख्याओं को अनदेखा करने के लिए, आप निम्न सूत्र का उपयोग कर सकते हैं:

 #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

उदाहरण 3: डेटा फ़्रेम में स्तंभों के ज्यामितीय माध्य की गणना करें

निम्नलिखित कोड दिखाता है कि डेटा फ़्रेम में किसी कॉलम के ज्यामितीय माध्य की गणना कैसे करें:

 #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

और निम्नलिखित कोड दिखाता है कि डेटा फ़्रेम में एकाधिक स्तंभों के ज्यामितीय माध्य की गणना कैसे करें:

 #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

अतिरिक्त संसाधन

आर में प्रति समूह माध्य की गणना कैसे करें
आर में भारित औसत की गणना कैसे करें
आर में माध्य की मानक त्रुटि की गणना कैसे करें