# NOT RUN {
library(sp)
data("nuts2006")
plot(nuts0.spdf)
box()
legendGradLines(title.txt = "Title of the legend",
pos = "topright",
title.cex = 0.8,
values.cex = 0.6, breaks = c(1,2,3,4,10.2,15.2),
lwd = c(0.2,2,4,5,10),
col ="blue", values.rnd =2)
# }
Run the code above in your browser using DataLab