nice legend for graphs

[dutangc]

niceleg <- function(n, ylim=c(-10, 2), poly.x=c(112, 114), text.x=104, text.y, text.lab=floor(seq(1816, 2013, length=5)))
{
col <- rainbow(1.25_n) #used in plot.fds
y <- seq(ylim[1], ylim[2], length=2_n+1)
for(i in 1:n)
polygon(c(poly.x[1],poly.x[1],poly.x[2],poly.x[2]), c(y[2_i-1], y[2_i+1], y[2_i+1], y[2_i-1]), border=NA, col=col[i])
if(missing(text.y))
text.y <- seq(y[2], y[2*n], length=length(text.lab))
text(text.x, text.y, text.lab)
}

france <- read.demogdata(file="Mx_1x1.txt", popfile="Exposures_1x1.txt", type="mortality", label="France")
plot(france, series="male", main="France, Tx mortalite, Homme")
niceleg(length(france$year))