R에서 기하 평균을 계산하는 방법(예제 포함)

다음 구문을 사용하여 R에서 숫자 집합의 기하 평균을 계산할 수 있습니다.

 exp(mean(log(x)))

다음 예에서는 이 기능을 실제로 사용하는 방법을 보여줍니다.

예 1: 벡터의 기하 평균 계산

다음 코드는 R에서 단일 벡터의 기하 평균을 계산하는 방법을 보여줍니다.

 #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이 있는 벡터의 기하 평균 계산

벡터에 0이나 음수가 포함되어 있으면 위 수식은 0 또는 NaN을 반환합니다.

기하 평균을 계산할 때 0과 음수를 무시하려면 다음 공식을 사용할 수 있습니다.

 #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

추가 리소스

R에서 그룹당 평균을 계산하는 방법
R에서 가중 평균을 계산하는 방법
R에서 평균의 표준 오차를 계산하는 방법