Facetamento automatizado

No exercício anterior, você criou manualmente um gráfico de dispersão facetado. Isso não foi muito trabalhoso porque você focou apenas em dois grupos. Porém, há 6 plataformas no conjunto de dados vgsales2016, e seria muito trabalhoso codificar manualmente 6 gráficos de dispersão.

Neste exercício, você vai praticar o uso de group_by(), nest(), mutate() e map2() para automatizar o processo de criação de um gráfico de dispersão facetado usando o seguinte modelo:

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)

Este exercício faz parte do curso

Visualização Interativa de Dados com plotly em R

Ver curso

Instruções do exercício

Use group_by(), nest(), mutate() e map2() para criar um gráfico de dispersão facetado mostrando Critic_Score no eixo x e User_Score no eixo y, em que os facetamentos são definidos por Platform.
Organize as facetas em uma grade com 3 linhas.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

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

Editar e executar o código