```r
unemp_lux_data %>%
  filter(division %in% c("Luxembourg", "Esch-sur-Alzette", "Wiltz")) %>%
  ggplot(aes(x = year, y = unemployment_rate_in_percent, group = division, colour = division)) +
  geom_line()
```

<img src="modern_R_files/figure-html/unnamed-chunk-13-1.png" width="672" />