ファセットの自動化

前の演習では、ファセット付きの散布図を手作業で作成しました。グループが 2 つだけだったので、それほど面倒ではありませんでした。しかし、vgsales2016 データセットには 6 つのプラットフォームがあり、6 つの散布図を手で書くのはとても骨が折れます。

この演習では、次のテンプレートを使って、group_by(), nest(), mutate(), map2() によるファセット付き散布図の自動作成を練習します。

data %>%
  group_by(factor) %>%
  nest() %>%
  mutate(
      plot = map2(data, factor,
        \(data, factor) 
            plot_ly(data = data, x = ~x, y = ~y) %>%
                  add_markers(name = ~factor)
    )) %>%
  subplot(nrows = R, shareY = TRUE, shareX = TRUE)

group_by(), nest(), mutate(), map2() を使って、x 軸に Critic_Score、y 軸に User_Score をとり、Platform でファセットを分けた散布図を作成してください。
3 行のグリッドにファセットを配置してください。