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

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

f_i也稱之為x_i的權.

在R中，使用weighted.mean()函數來計算加權平均數，其使用格式為：

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

參數x為表示數據的向量，w為向量，是對應x各分量的權重。

（1）使用舉例如下：

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

可以編寫程序如下：

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

計算結果為：4.580 786,即該幼兒園兒童的平均年齡為4.58歲。

（2）再舉一例：

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

編寫程序如下：

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

計算結果為：0.1725，即這三個縣的人均耕地面積為0.1725公頃。

（3）第3個例子

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

編寫程序如下：

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

計算結果如下：

89.4