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)
求可视化的方法

雷达卡





京公网安备 11010802022788号







