Combinación de conjuntos

Los datos agregados en el último ejercicio se han cargado previamente en batman_colors y star_wars_colors. Antes de visualizar los datos, querrá combinar estas tablas para poder comparar directamente los colores de los temas.

batman_colors <- inventory_parts_themes %>%

  filter(name_theme == "Batman") %>%

  group_by(color_id) %>%

  summarize(total = sum(quantity)) %>%

  mutate(fraction = total / sum(total))

star_wars_colors <- inventory_parts_themes %>%

  filter(name_theme == "Star Wars") %>%

  group_by(color_id) %>%

  summarize(total = sum(quantity)) %>%

  mutate(fraction = total / sum(total))

Este ejercicio forma parte del curso

Unir datos con dplyr

Ver curso

Ejercicio interactivo práctico

Pruebe este ejercicio completando este código de muestra.

batman_colors %>%
  # Join the Batman and Star Wars colors
  ___(star_wars_colors, by = "color_id", suffix = c("_batman", "_star_wars")) %>%
  # Replace NAs in the total_batman and total_star_wars columns
  ___ %>%
  inner_join(colors, by = c("color_id" = "id"))

Editar y ejecutar código