Rótulos e pop-ups

Mapas Interativos com leaflet em R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Pipes e o operador ~

ipeds %>% 
 leaflet() %>% 
 addProviderTiles("CartoDB") %>% 
 addCircleMarkers(
               lng = ~lng, 
               lat = ~lat, 
               popup = ~name, 
               color = "#FF0000")

Marcadores circulares de todas as faculdades 1

# ipeds é especificado 3 vezes
leaflet() %>% 
  addProviderTiles("CartoDB") %>% 
  addCircleMarkers(
              lng = ipeds$lng, 
              lat = ipeds$lat, 
              popup = ipeds$name, 
              color = "red")

Marcadores circulares de todas as faculdades 2

Todas as cores

ipeds %>% 
     leaflet() %>% 
     addProviderTiles("CartoDB")%>% 
     addCircleMarkers(
        lng = ~lng, lat = ~lat, 
        popup = ~name,color = "#FF0000")

Hex	Decimal	Cor RGB
FF	255	Vermelho
00	0	Verde
00	0	Azul

Hex FF0000

= 16^1*15 + 16^0*15

= 16*15 + 1*15

= 240 + 15

= 255

Criando um pop-up melhor

addCircleMarkers(popup = ~name)

addCircleMarkers(popup = ~paste0(name, "-", sector_label)

addCircleMarkers(popup = ~paste0("<b>",name,"</b>","
                         <br/>",sector_label))

Pop-ups personalizados

Rótulos

ipeds %>% 
    leaflet()  %>% 
    addProviderTiles("CartoDB")  %>% 
    addCircleMarkers(label = ~name, radius = 2)

Rótulos personalizados

Vamos praticar!

Mapas Interativos com leaflet em R