R のグループ平均を計算する方法 (例付き)
多くの場合、R でグループ平均を計算したいことがあります。これを行うには、次の 3 つの方法を使用できます。
方法 1: R 塩基を使用します。
aggregate(df$col_to_aggregate, list(df$col_to_group_by), FUN= mean )
方法 2: dplyr() パッケージを使用します。
library (dplyr)
df %>%
group_by (col_to_group_by) %>%
summarise_at (vars(col_to_aggregate), list(name = mean ))
方法 3: data.table パッケージを使用します。
library (data.table)
dt[ ,list(mean= mean (col_to_aggregate)), by=col_to_group_by]
次の例は、これらの各メソッドを実際に使用する方法を示しています。
方法 1: R ベースを使用してグループごとの平均を計算する
次のコードは、R データベースのAggregate()関数を使用して、次のデータ フレーム内のチームごとの平均得点を計算する方法を示しています。
#create data frame df <- data.frame(team=c('a', 'a', 'b', 'b', 'b', 'c', 'c'), pts=c(5, 8, 14, 18, 5, 7, 7), rebs=c(8, 8, 9, 3, 8, 7, 4)) #view data frame df team pts rebs 1 to 5 8 2 to 8 8 3 b 14 9 4 b 18 3 5 b 5 8 6 c 7 7 7 c 7 4 #find mean points scored by team aggregate(df$pts, list(df$team), FUN= mean ) Group.1 x 1 to 6.50000 2 b 12.33333 3 to 7.00000
方法 2: dplyr を使用してグループごとの平均を計算する
次のコードは、 dplyrパッケージのgroup_by ()関数とsummarise_at()関数を使用して、次のデータ フレームでチームごとの平均得点を計算する方法を示しています。
library (dplyr)
#create data frame
df <- data.frame(team=c('a', 'a', 'b', 'b', 'b', 'c', 'c'),
pts=c(5, 8, 14, 18, 5, 7, 7),
rebs=c(8, 8, 9, 3, 8, 7, 4))
#find mean points scored by team
df %>%
group_by (team) %>%
summarise_at (vars(pts), list(name = mean ))
# A tibble: 3 x 2
team name
<fct> <dbl>
1 to 6.5
2 b 12.3
3 v 7
方法 3: data.table を使用してグループごとの平均を計算する
次のコードは、次のデータ フレームでチームごとの平均得点を計算する方法を示しています。
library (data.table)
#create data frame
df <- data.frame(team=c('a', 'a', 'b', 'b', 'b', 'c', 'c'),
pts=c(5, 8, 14, 18, 5, 7, 7),
rebs=c(8, 8, 9, 3, 8, 7, 4))
#convert data frame to data table
setDT(df)
#find mean points scored by team
df[,list(mean= mean (pts)), by=team]
team mean
1: to 6.50000
2:b12.33333
3: c 7.00000
3 つのメソッドはすべて同じ結果を返すことに注意してください。
関連: R の平均関数の完全ガイド