DHBins (version 1.1)

immune: Immunisation coverage

Description

The report measures the number of children who turned the milestone age of 5 years between 01-Jul-2019 and 30-Sep-2019 and who have completed their age appropriate immunisations by the time they turned the milestone age. The target is 95%. Children are only counted once, according to 'prioritised ethnicity': the priority order is M<U+0101>ori, Pacific, Asian, other, NZ European. The immune_long variant is in long form with separate rows for each ethnicity, and with missing values where the population size is too small.

Usage

data("immune")

Format

For immune, a data frame with 20 observations on the following 19 variables.

DHB

name of District Health Board

Ntotal

Number of children

Vaxtotal

Number who completed their vaccinations

Pcttotal

Proportion

NNZE,VaxNSE,PctNZE

the same, for children of NZ European ethnicity

NMaori,VaxMaori,PctMaori

the same, for children of M<U+0101>ori ethnicity

NPacific,VaxPacific,PctPacific

the same, for children of Pacific ethnicities

NAsian,VaxAsian,PctAsian

the same, for children of Asian ethnicities

NOther,VaxOther,PctOther

the same, for children of other ethnicities

For immune_long, a data frame with 120 observations on the following 3 variables.

DHB

name of District Health Board

ethnicity

ethnicity: a factor with levels total NZE Maori Pacific Asian Other

pct_vax

percent vaccinated, a factor with levels [0,0.8) [0.8,0.85) [0.85,0.9) [0.9,0.95) [0.95,1)

References

Statistics New Zealand. Health Indicators. http://archive.stats.govt.nz/browse_for_stats/snapshots-of-nz/nz-social-indicators/Home/Health/childhood-immunisation.aspx

Examples

# NOT RUN {
data(immune)
summary(immune)

immune$vax_pct<-cut(immune$Pcttotal,c(0,.80,.85,.90,.95,1))
ggplot(immune)+
	geom_dhb(aes(fill=vax_pct,map_id=dhb_fixname(DHB)))+
	scale_fill_viridis_d(drop=FALSE)+
	geom_label_dhb(short=TRUE,colour="white")

data(immune_long)
ggplot(immune_long) + 
   	geom_dhb(aes(map_id=dhb_fixname(DHB),fill=pct_vax),alpha=0.5,colour="lightgrey") +
   	scale_fill_viridis_d(drop=FALSE)+
   	geom_label_dhb(short=TRUE,colour="black")+
   	facet_wrap(~ethnicity)

cols<-c("goldenrod","red","orange","gold","springgreen")
with(immune, dhbin(hex_colours=cols[vax_pct], legend_opts=list(fill=cols,
legend=c("<80","80-85","85-90","90-95","95+"), title="Immunisation coverage (pct)")
 ))

## Add some transparency
with(immune, dhbin(hex_colours=adjustcolor(cols[vax_pct],alpha.f=.5), legend_opts=list(fill=cols,
legend=c("<80","80-85","85-90","90-95","95+"), title="Immunisation coverage (pct)")
 ))

# }