Facetado automatizado

En el ejercicio anterior, creaste manualmente un diagrama de dispersión facetado. No fue muy pesado porque solo te centraste en dos grupos. Sin embargo, hay 6 plataformas en el conjunto de datos vgsales2016, y sería muy tedioso codificar manualmente 6 diagramas de dispersión.

En este ejercicio, practicarás el uso de group_by(), nest(), mutate() y map2() para automatizar la creación de un diagrama de dispersión facetado utilizando la siguiente plantilla:

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 ejercicio forma parte del curso

Visualización de datos interactiva con plotly en R

Ver curso

Instrucciones del ejercicio

Usa group_by(), nest(), mutate() y map2() para crear un diagrama de dispersión facetado que muestre Critic_Score en el eje x y User_Score en el eje y, donde las facetas están definidas por Platform.
Organiza las facetas en una cuadrícula de 3 filas.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# 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 y ejecutar código