---
title: "exercises_02"
output: html_notebook
---
Run `exercises_01.Rmd` first if you have not done so yet. 
# Interpret this plot and draw it yourselves


## First marriage women - time and regions 
__Hints:__

  - scale_.....
  - mapping = aes()
  - limits, breaks, name, labels
  - *continuous* vs. *discrete*
  - coord_flip() --- this is the last thing to do

```{r echo=FALSE}
mar1_comparison_time %>% 
  ggplot() + 
  geom_boxplot(mapping = aes(x = world_6region, 
                             y = age_at_1st_marriage_women, 
                             color = past_20_years) ) + 
  scale_y_continuous(limits = c(12,35), 
                     breaks = seq(from = 12, to = 35, by = 1), 
                     name = "Women's age at their 1st marriage "
                     ) +
  scale_color_discrete(name = "") + 
  coord_flip()
                 
```


## First marriage women - time and religion



```{r fig.width=10,warning=FALSE, echo=FALSE}
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")) + 
  coord_flip() 
```