已知数据集 who,对每一组 country ,year ,sex 计算 cases 的总数量，并用合适的方法可视化。

who %>%

  gather(new_sp_m014:newrel_f65, key = "key", value = "cases", na.rm = TRUE) %>%

  mutate(key = stringr::str_replace(key, "newrel", "new_rel")) %>%

  separate(key, c("new", "type", "sexage")) %>%

  separate(sexage, c("sex", "age"), sep = 1) %>%

  select(-iso2, -iso3, -new, -type, -age)

求可视化的方法