## Use of boxtext in the ageHeaping plot function
svy <- dp.ex02
ah12 <- ageHeaping(svy$age)
plot.new()
boxText(x = as.numeric(names(ah12$tab)),
y = max(ah12$tab) * 0.1,
labels = paste(sprintf(fmt = "%3.1f", ah12$pct), "%", sep = ""),
cex = 0.5,
pad = TRUE)
Run the code above in your browser using DataLab