data("nuts2006")
plot(nuts0.spdf)
box()
legendPropLines(pos = "topleft", title.txt = "Title",
title.cex = 0.8, values.cex = 0.6, cex = 2,
var = nuts1.df$pop2008,
lwd = nuts1.df$pop2008/1000000,
col="red", frame=TRUE, values.rnd=2)
Run the code above in your browser using DataLab