summarise

データを要約する

データをグループ分けして要約するには、group_by() + summarise() が便利

#元になるデータ（３種類のサイコロの出る目の数、１００回分）
d <- data.frame (A = as.integer( runif(100, min = 1, max = 7) ), 
                            B = as.integer( runif(100, min = 1, max = 7) ), 
                            C = as.integer( runif(100, min = 1, max = 7) ))

# 確率を求める
d |> 
   pivot_longer(names_to = "ABC", cols =  c("A", "B", "C")) |>  # データを縦長に変換
   group_by(ABC, value) |>                                                         # サイコロABCごと出る目valueごとにグループ化
   summarise(N = n()) |>                                                             # ここでグループ単位で合計が出される（グループvalueが一段解除される）
   mutate(Rate = N/sum(N)) |>                                                  # グループABC単位でsumが計算されるためRateはサイコロごと
   pivot_wider(names_from = ABC, values_from = Rate) 

参考

• https://notchained.hatenablog.com/entry/2020/06/28/134109