Code
`61111B5002` %>%
group_by(original_period, period) %>%
summarise(Nobs = n()) %>%
print_table_conditional| original_period | period | Nobs |
|---|---|---|
| 1995 | 1995-01-01 | 40 |
| 2000 | 2000-01-01 | 42 |
| 2005 | 2005-01-01 | 42 |
| 2010 | 2010-01-01 | 43 |
| 2015 | 2015-01-01 | 43 |
Data - Destatis
`61111B5002` %>%
group_by(original_period, period) %>%
summarise(Nobs = n()) %>%
print_table_conditional| original_period | period | Nobs |
|---|---|---|
| 1995 | 1995-01-01 | 40 |
| 2000 | 2000-01-01 | 42 |
| 2005 | 2005-01-01 | 42 |
| 2010 | 2010-01-01 | 43 |
| 2015 | 2015-01-01 | 43 |
`61111B5002_var`$CC13A3 %>%
print_table_conditional`61111B5002` %>%
group_by(series_code, series_name) %>%
summarise(Nobs = n()) %>%
print_table_conditional`61111B5002` %>%
select(CC13A3, `Individual consumption by purpose, 3-digit codes`, original_period, value) %>%
spread(original_period, value) %>%
print_table_conditional