În exercițiul anterior, ai creat colors_joined. Acum vei crea un grafic cu bare – câte o bară pentru fiecare culoare (name) – care să arate diferența dintre fracții.

Deoarece factorii și vizualizarea depășesc scopul acestui curs, am realizat o parte din procesare în prealabil: mai jos este codul care a creat tabelul colors_joined, folosit și în videoclip.

colors_joined <- batman_colors %>%
  full_join(star_wars_colors, by = "color_id", suffix = c("_batman", "_star_wars")) %>%
  replace_na(list(total_batman = 0, total_star_wars = 0)) %>%
  inner_join(colors, by = c("color_id" = "id")) %>%
  mutate(difference = fraction_batman - fraction_star_wars,
         total = total_batman + total_star_wars) %>%
  filter(total >= 200) %>%
  mutate(name = fct_reorder(name, difference))

Vizualizarea diferențelor dintre seturi

Create Your Free Account