Code
T11300_A |>
year_to_date() |>
mutate(year = year(date)) |>
filter(year %in% c(1929, 1949, 1969, 1989, 2009, 2019)) |>
group_by(year) |>
mutate(value = round(100*DataValue/DataValue[1], 1)) |>
ungroup() |>
select(2, 3, 6, 7) |>
spread(year, value) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}
Data - BEA