# NOT RUN {
library(sp)
data("nuts2006")
plot(nuts0.spdf)
box()
legendSquaresSymbols(pos = "bottomright", title.txt = "Title of\nthe legend ",
                     title.cex = 0.8, values.cex = 0.6,
                     var = c(max(nuts1.df$pop2008), min(nuts1.df$pop2008)),
                     inches = 0.5,
                     col="red",  
                     frame=TRUE, values.rnd=0, style ="c")
# }
Run the code above in your browser using DataLab