File:R-US state areas-basicboxplot+colour.svg

svg(file = "R-US_state_areas-basicboxplot+colour.svg", width = 5, height = 1.5, pointsize = 8)
#Basic horizontal boxplot example (no outlier treatment) with continuous data, coloured to match R-US_state_areas-1D+quartiles. Data = US state areas 
par(mar=c(4,1,3,1)+0.1)
X <- state.area*2.58998811/1000
stripchart(X, pch=NA, xlab=expression(paste(italic("landArea")," (thousands of square km)")), xaxt="n") #dummy plot, to set up axes
axis(1,seq(0, 2e3, 100), cex.axis=0.8, las=2)
#roll our own boxplot, to allow different coloured whiskers etc.
#Should be equivalent to boxplot(Y, range=0, add=TRUE)
corners <- xy.coords(quantile(X, c(0.25, 0.25, 0.75, 0.75)), c(0.8,1.2,1.2,0.8))
segments(corners$x, corners$y, corners$x[c(2,3,4,1)], corners$y[c(2,3,4,1)], col=c("green", "grey30", "red", "grey30")) #box
segments(median(X), 0.8, median(X), 1.2, lwd=3) #median
arrows(quantile(X, c(0.25, 0.75)),1,range(X), 1, col=c("green", "red"), angle = 90, length=0.1) #whiskers
title("Size of US states")
dev.off()