data("nuts2006")
plot(nuts0.spdf)
legendCirclesSymbols(pos = "topleft", title.txt = "Title of\nthe legend",
title.cex = 0.8, values.cex = 0.6,cex = 1.5,
var = nuts1.df$pop2008,
r = sqrt((abs(nuts1.df$pop2008) * 100000) / pi),
col = "pink", frame = TRUE,
values.rnd=0, style ="c")
Run the code above in your browser using DataLab