data(nuts2006)
## Example 1
nuts0.df$typo <- c(rep("A",10),rep("B",10),rep("C",10),rep("D",4))
colours <- c("red","green","blue","yellow")
typoLayer(spdf = nuts0.spdf, df = nuts0.df, var = "typo")
## Example 2
# Layout plot
layoutLayer(title = "Colors in Europe",
sources = "UMS RIATE, 2015",
scale = NULL,
frame = TRUE,
col = "black",
coltitle = "white",
bg = "#D9F5FF",
extent = nuts0.spdf)
#Countries plot
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",
legend.pos = "topright",
legend.title.txt = "Category",
add=TRUE)
Run the code above in your browser using DataLab