對分組的數(shù)據(jù)可以計(jì)算加權(quán)平均數(shù)（或稱為加權(quán)平均值）。在計(jì)算加權(quán)平均數(shù)時(shí)，先將每組的變量分別乘以各自的頻數(shù)，然后再除以總次數(shù)（或總頻數(shù)），其計(jì)算公式為：

其中,x_i為變量,f_i為x_i出現(xiàn)的次數(shù)或頻數(shù)，n為總次數(shù)（或總頻數(shù)）,n = f₁ + f₂ + ... + f_k

f_i也稱之為x_i的權(quán).

在R中，使用weighted.mean()函數(shù)來計(jì)算加權(quán)平均數(shù)，其使用格式為：

weighted.mean(x, w, ..., na.rm = FALSE)

參數(shù)x為表示數(shù)據(jù)的向量，w為向量，是對應(yīng)x各分量的權(quán)重。

（1）使用舉例如下：

某幼兒園共有兒童458名，其中3歲至6歲兒童的人數(shù)分別為90,130,120,118名，試在R中計(jì)算該幼兒園兒童的平均年齡。

可以編寫程序如下：

x <- 3:6
f <- c(90,130,120,118)
weighted.mean(x, w = f)

計(jì)算結(jié)果為：4.580 786,即該幼兒園兒童的平均年齡為4.58歲。

（2）再舉一例：

某三個(gè)縣人數(shù)分別為：15萬人，7萬人、10萬人，其人均耕地面積分別為：0.15公頃、0.21公頃、0.18公頃，式計(jì)算這三個(gè)縣的人均耕地面積是多少公頃？

編寫程序如下：

x <- c(0.15, 0.21, 0.18)
f <- c(15, 7, 10)
weighted.mean(x, w = f)

計(jì)算結(jié)果為：0.1725，即這三個(gè)縣的人均耕地面積為0.1725公頃。

（3）第3個(gè)例子

學(xué)校算期末成績，期中考試占30%，期末考試占50%，作業(yè)占20%，假如某人期中考試得了84，期末92，作業(yè)分91，求該學(xué)生的加權(quán)平均值。

編寫程序如下：

grade <- c(84, 92, 91)
weight <- c(0.3,0.5, 0.2)
weighted.mean(grade, w = weight)

計(jì)算結(jié)果如下：

89.4