# The operations to obtain it from the `ft` data set are:
if (rlang::is_installed("stringr")) {
ft_age <- ft |>
dplyr::select(-`Pneumonia and Influenza Deaths`, -`All Deaths`) |>
tidyr::gather("Age", "All Deaths", 7:11) |>
dplyr::mutate(`All Deaths` = as.integer(`All Deaths`)) |>
dplyr::mutate(Age = stringr::str_replace(Age, " \\(all cause deaths\\)", ""))
}
Run the code above in your browser using DataLab