R Notebook

Run exercises_01.Rmd if you have not just done that. # Facets… when you want to map too many categorical variables Actually, this is no exercise, let Silvie explain.

mar1_comparison_time %>% 
  ggplot() + 
  geom_boxplot(mapping = aes(x = world_6region, 
                             y = age_at_1st_marriage_women, 
                             alpha = past_20_years, 
                             fill = main_religion_2008) ) + 
  scale_y_continuous(limits = c(12,35), 
                     breaks = seq(from = 12, to = 35, by = 1), 
                     name = "Women's age at their 1st marriage "
                     ) +
  scale_alpha_discrete(name = "", labels = c("long ago", "past 20 years"), range = c(0.1, 1)) + 
  coord_flip() + facet_wrap(facets = ~ main_religion_2008, ncol = 1 )

mar1_comparison_time %>% 
  ggplot() + 
  geom_boxplot(mapping = aes(x = main_religion_2008, 
                             y = age_at_1st_marriage_women, 
                             alpha = past_20_years, 
                             fill = main_religion_2008) ) + 
  scale_y_continuous(limits = c(12,35), 
                     breaks = seq(from = 12, to = 35, by = 1), 
                     name = "Women's age at their 1st marriage "
                     ) +
  scale_alpha_discrete(name = "", labels = c("long ago", "past 20 years"), range = c(0.1, 1)) + 
  coord_flip() + facet_wrap(facets = ~ world_6region, ncol = 1)