Автоматизоване фасетування

У попередній вправі ви створювали фасетований діаграму розсіювання вручну. Це було не надто клопітно, бо ви працювали лише з двома групами. Однак у наборі даних 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)

Ця вправа є частиною курсу

Інтерактивна візуалізація даних із plotly в R

Переглянути курс

Інструкції до вправи

Використайте group_by(), nest(), mutate() і map2(), щоб створити фасетовану діаграму розсіювання з Critic_Score по осі x та User_Score по осі y, де фасети визначаються за Platform.
Розташуйте фасети у сітці з 3 рядків.

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

# Create a faceted scatterplot of User_Score vs. Critic_Score with 3 rows
vgsales2016 %>%
  ___(___) %>%
  ___() %>%
  mutate(
    plot = ___(
      ___, ___,
      \(data, Platform) 
      	
    )) %>%
  subplot(nrows = ___, shareY = TRUE, shareX = TRUE)

Редагувати та запускати код