data(nuts2006)
## Example 1
nuts0.df$typo <- c(rep("A",10),rep("B",10),rep("C",10),rep("D",4))
typoLayer(spdf = nuts0.spdf, df = nuts0.df, var = "typo")
## Example 2
nuts0.df$typo <- c(rep("A",10),rep("B",10),rep("C",10),rep("D",4))
typoLayer(spdf = nuts0.spdf, df = nuts0.df,
var="typo", col = carto.pal(pal1 = "multi.pal", 4),
legend.values.order = c("D", "B", "A", "C"),
legend.pos = "topright",
legend.title.txt = "Category")
layoutLayer(title = "Colors in Europe",
sources = "UMS RIATE, 2015",
scale = NULL,
frame = TRUE,
col = "black",
coltitle = "white")
Run the code above in your browser using DataLab