Plot legend for typology maps.
legendTypo(pos = "topleft", title.txt = "Title of the legend", title.cex = 0.8, values.cex = 0.6, col, categ, cex = 1, nodata = TRUE, nodata.txt = "No data", nodata.col = "white", frame = FALSE, symbol = "box")
data("nuts2006") plot(nuts0.spdf, col = "grey")box()# Define labels and colors someLabels <- c("red color", "yellow color", "green color", "black color") someColors <- c("red", "yellow", "green", "black") # plot legend legendTypo(pos = "bottomleft", title.txt = "Title of the legend", title.cex = 0.8, values.cex = 0.6, col = someColors, categ = someLabels, cex = 0.75, nodata = TRUE, nodata.txt = "no data", frame = TRUE, symbol="box")legendTypo(pos = "topright", title.txt = "", title.cex = 1.5, cex = 1.25, values.cex = 1, col = someColors, categ = someLabels, nodata = FALSE, frame = FALSE, symbol="line")