file | LAST_DOWNLOAD |
---|---|
T10101_Q | 2022-10-09 |
T10101_A | 2022-10-09 |
LAST_COMPILE |
---|
2024-02-11 |
date | Nobs |
---|---|
2022-06-30 | 25 |
T10101_A %>%
year_to_date %>%
mutate(year = year(date)) %>%
mutate(period = case_when(year <= 1939 ~ "1930-1939",
year <= 1945 ~ "1940-1945",
year <= 1975 ~ "1946-1975",
year <= 2000 ~ "1976-2000",
year <= 2020 ~ "2001-2020")) %>%
select(LineNumber, LineDescription, period, DataValue) %>%
group_by(LineNumber, LineDescription, period) %>%
summarise(mean_growth = mean(DataValue) %>% round(., 1) %>% paste0(., " %")) %>%
spread(period, mean_growth) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}
T10101_A %>%
year_to_date %>%
mutate(year = year(date)) %>%
filter(year %in% c(1938, 1958, 1978, 1998, 2019)) %>%
group_by(year) %>%
mutate(value = round(DataValue, 2)) %>%
ungroup %>%
select(2, 3, 6, 7) %>%
spread(year, value) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}