Mapas Interactivos en R

Leaflet Package

Contenedor

contenedor <- leaflet()

contenedor

Mapa Base - Open Street Map

mapa_base <- leaflet() %>% 

addTiles() 
  


mapa_base

Latitud - Longitud - Marcador - Círculo

palacio_gobierno <- leaflet() %>% 

addTiles() %>% 
  
addMarkers(lat=-12.0445413048477,lng=-77.0297865032048) %>%     

  
addCircleMarkers(lat=-12.0445413048477,lng=-77.0297865032048,color="purple",radius=50)  

palacio_gobierno

MiniMap - Logo

img <-"https://www.python.org/static/community_logos/python-powered-h-50x65.png"

palacio_nacional <- leaflet() %>% 

addTiles() %>% 

leafem::addLogo(img,url="https://www.python.org/",position="topright",width=30,height=30) %>% 

addMarkers(lat=18.47474559888523,lng=-69.89787861615132) %>% 

addCircleMarkers(lat=18.47474559888523,lng=-69.89787861615132,color="orange",radius=40) %>% 

addMiniMap(position="bottomleft",toggleDisplay=TRUE)


palacio_nacional

Popup configuración

# Popup configuración

# Palacio Nacional de La República Dominicana 18.47474559888523, -69.89787861615132

lugar_01 <- c("Palacio Nacional Rep. Dom")

lat_01 <-c(18.47474559888523)

lng_01 <-c(-69.89787861615132)

url_01 <-paste0("<a href='https://bit.ly/3hgCyg3' target='_blank'>Web Palacio Nacional</a>")

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

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

palacio_nacional <- leaflet() %>% 

addTiles() %>% 

leafem::addLogo(img,url="https://cran.r-project.org/",position="topright",width=25,height=25) %>% 

addMarkers(lat=18.47474559888523,lng=-69.89787861615132,popup=paste(sep="<br>","<b>Lugar:</b>",lugar_01,"<b>Latitud:</b>",lat_01,"<b>Longitud:</b>",lng_01,"<b>URL:</b>",url_01,img_01)) %>% 
  
addCircleMarkers(lat=18.47474559888523,lng=-69.89787861615132,color="orange",radius=40) %>% 

addMiniMap(position="bottomleft",toggleDisplay=TRUE)


palacio_nacional