Plot legend for proportional squares maps
legendSquaresSymbols(pos = "topleft", title.txt = "Title of the legend", title.cex = 0.8, cex = 1, values.cex = 0.6, var, r, breakval = NULL, col = "red", col2 = "blue", frame = FALSE, values.rnd = 0, style = "c")
The breakval parameter allows to plot symbols of two colors: the first color (col) for values superior or equal to breakval, second color (col2) for values inferior to breakval.
data("nuts2006") plot(nuts0.spdf)rect(par()$usr[1], par()$usr[3], par()$usr[2], par()$usr[4], border = "black")legendSquaresSymbols(pos = "bottomright", title.txt = "Title of\nthe legend ", title.cex = 0.8, values.cex = 0.6, var = nuts1.df$pop2008, r = sqrt((abs(nuts1.df$pop2008) * 5000)), breakval=10, col="red", col2="blue", frame=TRUE, values.rnd=0, style ="c")