pivot_wider()

ピボットテーブル

table()を参照

仕訳を集計する

とりあえず仕訳を伝票種類別に整理したいときなど

以下、Groupは伝票種別、Itemは勘定科目、Numは金額とする

library(tidyverse)
Group = c("A","A","B","B","B","C","C","C","C","D","D","D","D")
Item = c("X","Y","X","Y","Z","X","Z","P","Q","X","Y","Z","Z")
Num = c(1,3,5,7,4,3,9,8,1,0,9,4,3)

df = tibble(Group, Item, Num)

#df |>  group_by(Group) |> pivot_wider(names_from = Item, values_fn = sum(Num)) #これはエラーになる
df |> pivot_wider(id_cols = Group, names_from = Item, values_from = Num, values_fn = sum)

出力は

# A tibble: 4 × 6
  Group     X     Y     Z     P     Q
  <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
1 A         1     3    NA    NA    NA
2 B         5     7     4    NA    NA
3 C         3    NA     9     8     1
4 D         0     9     7    NA    NA