data("nuts2006")
plot(nuts0.spdf, col = "grey60",border = "grey20", add=FALSE)
barscale(size = 1000)
barscale(size = 500, lwd = 3, cex = .9, pos = c(3553000, 1449000))
plot(nuts0.spdf, col = "grey60",border = "grey20", add=FALSE)
barscale(style = "oldschool")
Run the code above in your browser using DataLab