library(maplegend)
plot(0, ann = FALSE, axes = FALSE, pch = NA)
# choropleth legends on circles or square
leg(type = "choro_point", val = seq(0, 100, 20), pos = "topleft", pal = 'Burg',
cex = 1, val_rnd = 0, symbol = "circle", title = "type = 'choro_point'")
leg(type = "choro_point", val = seq(0, 100, 20), pos = "topleft", pal = 'Burg',
cex = 1, val_rnd = 0, symbol = "square", title = " ", adj = c(15, 0))
# choropleth legend on lines
leg(type = "choro_line", val = c(10, 20, 30, 40, 50), pos = "topright",
pal = 'Teal', lwd = 5, val_rnd = 0, no_data = TRUE, no_data_txt = "No data",
title = "type = 'choro_line'")
# choropleth legend on symbols
leg(type = "choro_symb", val = c(10, 20, 30, 40, 50), pch = 24, pal = "Rocket",
pos = "bottomleft", cex = 2, val_rnd = 1, lwd = 1,
title = "type = 'choro_symb'")
# typology legend on lines
leg(type = "typo_line", val = c("A", "B", "C"), lwd = 4, pos = "bottomright",
pal = c("#da131a", "#ffb915", "#007847"), no_data = TRUE, col_na = "white",
frame = TRUE, bg = "#292421", fg = "white", frame_border = NA,
box_cex = c(2, 1), title = "type = 'typo_line'")
title("New legend types")