Mapas Interactivos en R

Leaflet - RMarkdown

Crear contenedor Mapa

contenedor <- leaflet()


contenedor

Mapa Base

mapa_base <- leaflet() %>% 
  
  addTiles()

mapa_base

Marcador - Circulo - Zoom

# Fortaleza del Real Felipe -12.062225308779134, -77.14879200320455

real_felipe <- leaflet() %>% 
  
  addTiles() %>% 
  
  setView(lat=-12.062225308779134,lng=-77.14879200320455,zoom=16) %>% 
  
  addMarkers(lat=-12.062225308779134,lng=-77.14879200320455,popup = "<b>Fortaleza del Real Felipe</b>") %>% 
  
  addCircleMarkers(lat=-12.062225308779134,lng=-77.14879200320455,color = "orange",radius=30)


real_felipe

Configurar Marcador

icon_felipe <- awesomeIcons(
  
  icon="fire",
  iconColor = "blue",
  markerColor = "purple",
  library = "fa"
  
)

real_felipe <- leaflet() %>% 
  
  addTiles() %>% 
  
  setView(lat=-12.062225308779134,lng=-77.14879200320455,zoom=16) %>% 
  
  addAwesomeMarkers(lat=-12.062225308779134,lng=-77.14879200320455,icon=icon_felipe,popup = "<b>Fortaleza del Real Felipe</b>") %>% 
  
  addCircleMarkers(lat=-12.062225308779134,lng=-77.14879200320455,color = "orange",radius=30)


real_felipe

Configurar Popup - Logo

# Fortaleza del Real Felipe -12.062225308779134, -77.14879200320455

icon_felipe <- awesomeIcons(
  
  icon="fire",
  iconColor = "blue",
  markerColor = "purple",
  library = "fa"
  
)

lugar_01 <- c("Fortaleza del Real Felipe")

lat_01 <- c(-12.062225308779134)

lng_01 <- c(-77.14879200320455)

url_01 <- paste0("<a href='https://bit.ly/34uqch5' target='_blank'>Web Real Felipe</a>")

img_01 <- paste0("<img src='https://bit.ly/3rQmK8s' width=200 height=100>")

logo_01 <- "https://www.r-project.org/logo/Rlogo.svg"


real_felipe <- leaflet() %>% 
  
  addTiles() %>% 
  
  setView(lat=-12.062225308779134,lng=-77.14879200320455,zoom=16) %>% 
  
  addAwesomeMarkers(lat=-12.062225308779134,lng=-77.14879200320455,icon=icon_felipe,
                    popup =paste("<b>Lugar:</b>",lugar_01,"<br>","<b>Latitud:</b>",lat_01,"<br>",
                                 "<b>Longitud:</b>",lng_01,"<br>","<b>URL:</b>",url_01,"<br>",
                                 img_01) ) %>% 
  
  addCircleMarkers(lat=-12.062225308779134,lng=-77.14879200320455,color = "orange",radius=30) %>% 
  
  leafem::addLogo(logo_01,url="https://www.r-project.org/logo/Rlogo.svg",position="topright",width = 25,height=25)


real_felipe