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