# NOT RUN {
## Example 1
library(sp)
data(nuts2006)
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
library(sf)
mtq <- st_read(system.file("shape/martinique.shp", package="cartography"))
typoLayer(x = mtq, var="STATUT",  
          col = c("aquamarine4", "yellow3","wheat"),
          legend.values.order = c("Pr<U+00E9>fecture de r<U+00E9>gion",
                                  "Sous-pr<U+00E9>fecture", 
                                  "Commune simple"),
          legend.pos = "topright",
          legend.title.txt = "Status")
layoutLayer(title = "Commune Status",
            author = "UMS RIATE, 2017",
            sources = "IGN, 2016",
            scale = NULL)
# }
Run the code above in your browser using DataLab