Contributory conditions

library(readr)
d <- read_csv("Conditions_contributing_to_deaths_involving_coronavirus_disease_2019__COVID-19___by_age_group_and_state__United_States.(1).csv")

## Parsed with column specification:
## cols(
##   `Data as of` = col_character(),
##   `Start Week` = col_character(),
##   `End Week` = col_character(),
##   State = col_character(),
##   `Condition Group` = col_character(),
##   Condition = col_character(),
##   ICD10_codes = col_character(),
##   `Age Group` = col_character(),
##   `COVID-19 Deaths` = col_double(),
##   `Number of Mentions` = col_double(),
##   Flag = col_character()
## )

d %>% filter (State =="US") -> us

us[,-c(1:4,7)] %>% filter(`Age Group` == "All Ages") %>% aqm::dt()