```r
unemp_lux = reduce(all_datasets, full_join)
```

```
## Joining, by = c("commune", "total_employed_population", "of_which_wage_earners", "of_which_non_wage_earners", "unemployed", "active_population", "unemployment_rate_in_percent", "year")
## Joining, by = c("commune", "total_employed_population", "of_which_wage_earners", "of_which_non_wage_earners", "unemployed", "active_population", "unemployment_rate_in_percent", "year")
## Joining, by = c("commune", "total_employed_population", "of_which_wage_earners", "of_which_non_wage_earners", "unemployed", "active_population", "unemployment_rate_in_percent", "year")
```

```r
glimpse(unemp_lux)
```

```
## Observations: 472
## Variables: 8
## $ commune                      <chr> "Grand-Duche de Luxembourg", "Can...
## $ total_employed_population    <int> 223407, 17802, 1703, 844, 1431, 4...
## $ of_which_wage_earners        <int> 203535, 15993, 1535, 750, 1315, 3...
## $ of_which_non_wage_earners    <int> 19872, 1809, 168, 94, 116, 294, 2...
## $ unemployed                   <int> 19287, 1071, 114, 25, 74, 261, 98...
## $ active_population            <int> 242694, 18873, 1817, 869, 1505, 4...
## $ unemployment_rate_in_percent <dbl> 7.947044, 5.674773, 6.274078, 2.8...
## $ year                         <int> 2013, 2013, 2013, 2013, 2013, 201...
```