library(leaflet)
icon.glyphicon <- makeAwesomeIcon(icon = "flag", markerColor = "blue",
iconColor = "black", library = "glyphicon",
squareMarker = TRUE)
icon.fa <- makeAwesomeIcon(icon = "flag", markerColor = "red", library = "fa",
iconColor = "black")
icon.ion <- makeAwesomeIcon(icon = "home", markerColor = "green",
library = "ion")
# Marker + Label
leaflet() %>% addTiles() %>%
addAwesomeMarkers(
lng = -118.456554, lat = 34.078039,
label = "This is a label",
icon = icon.glyphicon)
leaflet() %>% addTiles() %>%
addAwesomeMarkers(
lng = -118.456554, lat = 34.078039,
label = "This is a label",
icon = icon.fa)
leaflet() %>% addTiles() %>%
addAwesomeMarkers(
lng = -118.456554, lat = 34.078039,
label = "This is a label",
icon = icon.ion)
# Marker + Static Label using custom label options
leaflet() %>% addTiles() %>%
addAwesomeMarkers(
lng = -118.456554, lat = 34.078039,
label = "This is a static label",
labelOptions = labelOptions(noHide = TRUE),
icon = icon.fa)
cities <- read.csv(textConnection("
City,Lat,Long,Pop
Boston,42.3601,-71.0589,645966
Hartford,41.7627,-72.6743,125017
New York City,40.7127,-74.0059,8406000
Philadelphia,39.9500,-75.1667,1553000
Pittsburgh,40.4397,-79.9764,305841
Providence,41.8236,-71.4222,177994
"))
library(dplyr)
cities <- cities %>% mutate(PopCat = ifelse(Pop < 500000, "blue", "red"))
leaflet(cities) %>% addTiles() %>%
addAwesomeMarkers(lng = ~Long, lat = ~Lat,
label = ~City,
icon = icon.ion)
icon.pop <- awesomeIcons(icon = "users",
markerColor = ifelse(cities$Pop < 500000, "blue", "red"),
library = "fa",
iconColor = "black")
leaflet(cities) %>% addTiles() %>%
addAwesomeMarkers(lng = ~Long, lat = ~Lat,
label = ~City,
icon = icon.pop)
# Make a list of icons (from two different icon libraries).
# We'll index into it based on name.
popIcons <- awesomeIconList(
blue = makeAwesomeIcon(icon = "user", library = "glyphicon", markerColor = "blue"),
red = makeAwesomeIcon(icon = "users", library = "fa", markerColor = "red"))
leaflet(cities) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>%
addAwesomeMarkers(lng = ~Long, lat = ~Lat,
label = ~City,
labelOptions = rep(labelOptions(noHide = TRUE), nrow(cities)),
icon = ~popIcons[PopCat] )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.