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")
Run the code above in your browser using DataLab