出生队列接种率数据预处理

gnldet <- readxl::read_xlsx('/mnt/c/Users/xuefliang/Downloads/gnldet_jzl.xlsx', sheet = 1, skip = 2) %>%

slice(-1) %>%

fill(区划名称, 区划编码, 疫苗, .direction = "down") %>%

rename(jc = `...4`) %>%

{

new_names <- c()

for (i in 1:18) {

new_names <- c(new_names, paste0(i, "岁接种数"), paste0(i, "岁接种率"))

}

old_names <- colnames(.)

colnames(.)[5:length(old_names)] <- new_names

} %>%

mutate(across(contains("率"), ~ as.numeric(str_replace_all(., "%", ""))),

across(contains("数"), ~ as.numeric(.))) %>%

filter(疫苗 != '总人数')

gnldet %>%

filter(疫苗=='乙肝疫苗' & jc=='1.0') %>%

select(区划名称,区划编码,疫苗,jc,`1岁接种率`) %>%

mutate(`1岁接种率大于90` = `1岁接种率` > 90) %>%

filter(`1岁接种率大于90`==FALSE) ->test

xuefliang