자동 패싯 만들기

이전 연습 문제에서는 패싯 산점도를 직접 만들었어요. 두 개의 그룹만 다뤘기 때문에 크게 번거롭지 않았죠. 하지만 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행 그리드로 배치하세요.