计算构成比
gs %>% hablar::convert(num(辖区人口总数)) %>% group_by(服务周期) %>% summarise(辖区人口总数 = sum(辖区人口总数,na.rm = T)) %>% adorn_percentages('col') %>% adorn_pct_formatting(digits = 2) %>% adorn_ns(format_func = function(x) format(x,big.mark = " ", decimal.mark = "."))