R_縦持ちデータは描画で利用_pivot_longer_20240908

# LIBRARIES ----
library(tidyquant)
library(tidyverse)

# DATA ----
mpg

# PIVOTING DATA ----

# 1.0 Pivot Wider ----
# - Reshaping to wide format

mpg_pivot_table_1 <- mpg %>%
    group_by(manufacturer) %>%
    count(class, name = "n") %>%
    # class列の数をカウント。name = "n" でカウント結果をn列に格納。
    ungroup() %>%
    pivot_wider( # wider formatに変換。横持ちデータ。クロス集計表。
        names_from  = class,　# class列の値を列に変換
        values_from = n, # n列の値を取得
        values_fill = 0　# NAを0で埋める
    )

# 2.0 Pivot Table ----

# - Making Summary "Pivot Tables"
mpg_pivot_table_2 <- mpg %>%
    pivot_table(　# クロス集計表を作成
        .columns = class,　# class列を列に変換
        .rows    = manufacturer,　# manufacturer列を行に変換
        .values  = ~ n(),　# n()でカウント　# ~ はformulaの意味. formulaとは、関数の引数に渡す関数のこと。
        fill_na  = 0 # NAを0で埋める
    )

# - Using lists to capture complex objects
mpg %>%
    pivot_table(
        .rows    = class,
        .values  = ~ list(lm(hwy ~ displ + cyl - 1))
        # ~ list(lm(hwy ~ displ + cyl - 1)) でlm()関数を使って回帰分析を行い、その結果をリストで取得.
        # この場合、class列の値ごとに回帰分析を行い、その結果をリストで取得している。
        # このように、複雑なオブジェクトを取得する場合は、list()を使う。
        # hwy ~ displ + cyl - 1 は、hwyをdisplとcylで回帰分析することを指定している。
    )

# 3.0 Pivot Longer ----
# - Long format best for visualizations

mpg_long_summary_table <- mpg_pivot_table_1 %>%
    pivot_longer( # long formatに変換。縦持ちデータ。
        cols      = compact:subcompact, # compact列からsubcompact列までを変換(class列の中身)
        names_to  = "class", # class列に変換
        values_to = "value" # value列に変換.クロス集計表の中身であったvalueはvalue列を新たにさ作成、その値を入れる。
    )

mpg_long_summary_table %>%
    ggplot(aes(class, manufacturer, fill = value)) +
    # class列をx軸、manufacturer列をy軸、value列をfillで色分け
    geom_tile() +
    # タイルを描画
    geom_label(aes(label = value), fill = "white") +
    # fill = "white" でラベルの背景色を白に指定
    # aes(label = value) でラベルにvalue列の値を表示
    # geom_label() でラベルを描画
    scale_fill_viridis_c() +
    # scale_fill_viridis_c() で色をviridisに指定
    # viridisはカラーパレットの一つ
    theme_minimal() +
    # theme_minimal() でテーマをminimalに指定
    labs(title = "Class by Auto Manufacturer")
    # labs(title = "Class by Auto Manufacturer") でタイトルを指定