计算构成比

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 = "."))

xuefliang