View source: R/add_typo_symboles.R
add_typo_symboles | R Documentation |
Add a symbols on a 'leaflet' map for typology.
add_typo_symboles(map, fondPoints, types = NULL, couleurs = NULL, tailles = NULL, epaisseurs = NULL)
map |
objet leaflet. |
fondPoints |
objets sf. Fond de points. |
types |
vecteur de numeriques (numeric). Par defaut a NULL. Voir details. |
couleurs |
vecteur de caracteres (character). Par defaut a NULL. Voir details. |
tailles |
vecteur de numeriques (numeric). Par defaut a NULL. Voir details. |
epaisseurs |
vecteur de numeriques (numeric). Par defaut a NULL. Voir details. |
Pour ajouter des symboles a la carte leaflet, il faut fournir un fond de points et si besoin preciser le type des points (par defaut un carre plein - voir l'aide de ?graphics::points), leurs couleurs (par defaut rouge), leurs tailles (par defaut 30) et l'epaisseur de la bordure du symbole si ce dernier n'est pas plein.
Attention a l'ordre des elements des vecteurs qui doivent correspondre a l'ordre du fond de points.
Retourne un objet de type leaflet.
coord_legende
leaflet_fonds_simples
leaflet_ronds leaflet_classes
leaflet_ronds_classes leaflet_classes_ronds
leaflet_typo
leaflet_oursins leaflet_joignantes
leaflet_saphirs
data("depm") data("regm") # Typologie en symboles map <- leaflet_fonds_simples(listFonds = list(depm)) points <- suppressWarnings(sf::st_centroid(depm[depm$CODE=="75",])) points <- rbind(points,suppressWarnings(sf::st_centroid(depm[depm$CODE=="13",]))) points <- rbind(points,suppressWarnings(sf::st_centroid(depm[depm$CODE=="69",]))) types <- c(16,15,15) couleurs <- c("blue","red","red") tailles <- c(25,20,20) map <- add_typo_symboles(map, fondPoints=points, types = types, couleurs = couleurs, tailles = tailles) map
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.