```r
unemp_lux_data %>%
  filter(division %in% communes) %>%
  group_by(division) %>%
  nest()
```

```
## # A tibble: 3 x 2
##   division         data             
##   <chr>            <list>           
## 1 Esch-sur-Alzette <tibble [15 x 7]>
## 2 Luxembourg       <tibble [15 x 7]>
## 3 Wiltz            <tibble [15 x 7]>
```