Crear contenedor

# Crear contenedor

contenedor <- leaflet()

contenedor

Crear Mapa Base - Open Street Map

# Crear Mapa Base - Open Street Map

mapa_base <- leaflet() %>% 

addTiles()

mapa_base

Lat - Lng - Marcador - Círculo

# Ubicación - Latitud - Longitud - Marcadores - Círculo

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

palacio_nacional <- leaflet() %>% 

addTiles() %>% 

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

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


palacio_nacional

Múltiples Marcadores - Caso I

# Múltiples Marcadores

cent_hist <- data.frame(lugar=c("Iglesia Nuestra Señora de La Merced","Convento Regina Angelorum","Puerta de la Misericordia"),latitud=c(18.47416921486365,18.471116404923126,18.468775880481004),    longitud=c(-69.88824745014279,-69.8871531089362,-69.89011426748678),               color=c("orange","blue","purple"))

centro_historico <- leaflet(data=cent_hist) %>% 

addTiles() %>%  

addMarkers(lat=~latitud,lng=~longitud) %>% 

addCircleMarkers(lat=~latitud,lng=~longitud,color=~color,radius=30) %>% 

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

centro_historico

Múltiples Marcadores - Caso II

puntos <- read.csv("F:/DISCO3/Documents/python_folium/puntos_dom.txt")

puntos_frame <- data.frame(puntos)

centro_historico <- leaflet(data=puntos_frame) %>% 

addTiles() %>%  

addMarkers(lat=~latitud,lng=~longitud) %>% 

addCircleMarkers(lat=~latitud,lng=~longitud,color=~color,radius=30)

centro_historico
LS0tDQp0aXRsZTogIk1hcGFzIEludGVyYWN0aXZvcyBlbiBSIg0KYXV0aG9yOiAiUmVuem8gQ8OhY2VyZXMgUm9zc2kiDQpkYXRlOiAiMjAyMi8wMy8wMiINCnN1YnRpdGxlOiBQYXF1ZXRlIExlYWZsZXQNCm91dHB1dDoNCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IFRSVUUNCiAgICB0b2NfZmxvYXQ6IFRSVUUNCiAgICB0aGVtZTogc2ltcGxleA0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCi0tLQ0KDQo8IS0tIENyZWFyIG1hcGFzIGludGVyYWN0aXZvcyBlbiBSIGhhY2llbmRvIHVzbyBkZWwgcGFxdWV0ZSBMZWFmbGV0IC0tPg0KDQo8c3R5bGU+DQoNCi5odG1sLXdpZGdldHsNCg0KICAgIG1hcmdpbjogYXV0bzsNCg0KDQp9DQo8L3N0eWxlPg0KDQpgYGB7ciBzZXR1cCxpbmNsdWRlPUZBTFNFfQ0KDQpsaWJyYXJ5KGxlYWZsZXQpDQoNCmxpYnJhcnkobGVhZmVtKQ0KDQpsaWJyYXJ5KGZvbnRhd2Vzb21lKQ0KDQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpDQpgYGANCg0KIyMgQ3JlYXIgY29udGVuZWRvcg0KDQpgYGB7cn0NCiMgQ3JlYXIgY29udGVuZWRvcg0KDQpjb250ZW5lZG9yIDwtIGxlYWZsZXQoKQ0KDQpjb250ZW5lZG9yDQpgYGANCg0KDQojIyBDcmVhciBNYXBhIEJhc2UgLSBPcGVuIFN0cmVldCBNYXANCg0KYGBge3J9DQojIENyZWFyIE1hcGEgQmFzZSAtIE9wZW4gU3RyZWV0IE1hcA0KDQptYXBhX2Jhc2UgPC0gbGVhZmxldCgpICU+JSANCg0KYWRkVGlsZXMoKQ0KDQptYXBhX2Jhc2UNCmBgYA0KDQoNCiMjIExhdCAtIExuZyAtIE1hcmNhZG9yIC0gQ8OtcmN1bG8NCg0KYGBge3J9DQojIFViaWNhY2nDs24gLSBMYXRpdHVkIC0gTG9uZ2l0dWQgLSBNYXJjYWRvcmVzIC0gQ8OtcmN1bG8NCg0KIyBQYWxhY2lvIE5hY2lvbmFsIGRlIExhIFJlcMO6YmxpY2EgRG9taW5pY2FuYSAxOC40NzQ3NDU1OTg4ODUyMywgLTY5Ljg5Nzg3ODYxNjE1MTMyDQoNCnBhbGFjaW9fbmFjaW9uYWwgPC0gbGVhZmxldCgpICU+JSANCg0KYWRkVGlsZXMoKSAlPiUgDQoNCmFkZE1hcmtlcnMobGF0PTE4LjQ3NDc0NTU5ODg4NTIzLGxuZz0tNjkuODk3ODc4NjE2MTUxMzIpICU+JSANCg0KYWRkQ2lyY2xlTWFya2VycyhsYXQ9MTguNDc0NzQ1NTk4ODg1MjMsbG5nPS02OS44OTc4Nzg2MTYxNTEzMixjb2xvcj0ib3JhbmdlIixyYWRpdXM9NDApDQoNCg0KcGFsYWNpb19uYWNpb25hbA0KYGBgDQoNCg0KDQojIyBNaW5pTWFwYSAtIExvZ28NCg0KYGBge3J9DQoNCiMgTWluaU1hcGEgLSBMb2dvDQoNCiMgUGFsYWNpbyBOYWNpb25hbCBkZSBMYSBSZXDDumJsaWNhIERvbWluaWNhbmEgMTguNDc0NzQ1NTk4ODg1MjMsIC02OS44OTc4Nzg2MTYxNTEzMg0KDQppbWcgPC0iaHR0cHM6Ly93d3cuci1wcm9qZWN0Lm9yZy9sb2dvL1Jsb2dvLnN2ZyINCg0KcGFsYWNpb19uYWNpb25hbCA8LSBsZWFmbGV0KCkgJT4lIA0KDQphZGRUaWxlcygpICU+JSANCg0KbGVhZmVtOjphZGRMb2dvKGltZyx1cmw9Imh0dHBzOi8vY3Jhbi5yLXByb2plY3Qub3JnLyIscG9zaXRpb249InRvcHJpZ2h0Iix3aWR0aD0yNSxoZWlnaHQ9MjUpICU+JSANCg0KYWRkTWFya2VycyhsYXQ9MTguNDc0NzQ1NTk4ODg1MjMsbG5nPS02OS44OTc4Nzg2MTYxNTEzMikgJT4lIA0KDQphZGRDaXJjbGVNYXJrZXJzKGxhdD0xOC40NzQ3NDU1OTg4ODUyMyxsbmc9LTY5Ljg5Nzg3ODYxNjE1MTMyLGNvbG9yPSJvcmFuZ2UiLHJhZGl1cz00MCkgJT4lIA0KDQphZGRNaW5pTWFwKHBvc2l0aW9uPSJib3R0b21sZWZ0Iix0b2dnbGVEaXNwbGF5PVRSVUUpDQoNCg0KcGFsYWNpb19uYWNpb25hbA0KYGBgDQoNCiMjIFBvcHVwIFNldHVwDQoNCmBgYHtyfQ0KIyBQb3B1cCBjb25maWd1cmFjacOzbg0KDQojIFBhbGFjaW8gTmFjaW9uYWwgZGUgTGEgUmVww7pibGljYSBEb21pbmljYW5hIDE4LjQ3NDc0NTU5ODg4NTIzLCAtNjkuODk3ODc4NjE2MTUxMzINCg0KbHVnYXJfMDEgPC0gYygiUGFsYWNpbyBOYWNpb25hbCBSZXAuIERvbSIpDQoNCmxhdF8wMSA8LWMoMTguNDc0NzQ1NTk4ODg1MjMpDQoNCmxuZ18wMSA8LWMoLTY5Ljg5Nzg3ODYxNjE1MTMyKQ0KDQp1cmxfMDEgPC1wYXN0ZTAoIjxhIGhyZWY9J2h0dHBzOi8vYml0Lmx5LzNoZ0N5ZzMnIHRhcmdldD0nX2JsYW5rJz5XZWIgUGFsYWNpbyBOYWNpb25hbDwvYT4iKQ0KDQppbWdfMDEgPC0gcGFzdGUwKCI8Y2VudGVyPjxpbWcgc3JjPSdodHRwczovL2JpdC5seS8zNnU1V05CJyB3aWR0aD0yMDAgaGVpZ2h0PTEwMD48L2NlbnRlcj4iKQ0KDQppbWcgPC0iaHR0cHM6Ly93d3cuci1wcm9qZWN0Lm9yZy9sb2dvL1Jsb2dvLnN2ZyINCg0KcGFsYWNpb19uYWNpb25hbCA8LSBsZWFmbGV0KCkgJT4lIA0KDQphZGRUaWxlcygpICU+JSANCg0KbGVhZmVtOjphZGRMb2dvKGltZyx1cmw9Imh0dHBzOi8vY3Jhbi5yLXByb2plY3Qub3JnLyIscG9zaXRpb249InRvcHJpZ2h0Iix3aWR0aD0yNSxoZWlnaHQ9MjUpICU+JSANCg0KYWRkTWFya2VycyhsYXQ9MTguNDc0NzQ1NTk4ODg1MjMsbG5nPS02OS44OTc4Nzg2MTYxNTEzMixwb3B1cD1wYXN0ZShzZXA9Ijxicj4iLCI8Yj5MdWdhcjo8L2I+IixsdWdhcl8wMSwiPGI+TGF0aXR1ZDo8L2I+IixsYXRfMDEsIjxiPkxvbmdpdHVkOjwvYj4iLGxuZ18wMSwiPGI+VVJMOjwvYj4iLHVybF8wMSxpbWdfMDEpKSAlPiUgDQogIA0KYWRkQ2lyY2xlTWFya2VycyhsYXQ9MTguNDc0NzQ1NTk4ODg1MjMsbG5nPS02OS44OTc4Nzg2MTYxNTEzMixjb2xvcj0ib3JhbmdlIixyYWRpdXM9NDApICU+JSANCg0KYWRkTWluaU1hcChwb3NpdGlvbj0iYm90dG9tbGVmdCIsdG9nZ2xlRGlzcGxheT1UUlVFKQ0KDQoNCnBhbGFjaW9fbmFjaW9uYWwNCmBgYA0KDQojIyBNw7psdGlwbGVzIE1hcmNhZG9yZXMgLSBDYXNvIEkNCg0KYGBge3J9DQojIE3Dumx0aXBsZXMgTWFyY2Fkb3Jlcw0KDQpjZW50X2hpc3QgPC0gZGF0YS5mcmFtZShsdWdhcj1jKCJJZ2xlc2lhIE51ZXN0cmEgU2XDsW9yYSBkZSBMYSBNZXJjZWQiLCJDb252ZW50byBSZWdpbmEgQW5nZWxvcnVtIiwiUHVlcnRhIGRlIGxhIE1pc2VyaWNvcmRpYSIpLGxhdGl0dWQ9YygxOC40NzQxNjkyMTQ4NjM2NSwxOC40NzExMTY0MDQ5MjMxMjYsMTguNDY4Nzc1ODgwNDgxMDA0KSwgICAgbG9uZ2l0dWQ9YygtNjkuODg4MjQ3NDUwMTQyNzksLTY5Ljg4NzE1MzEwODkzNjIsLTY5Ljg5MDExNDI2NzQ4Njc4KSwgICAgICAgICAgICAgICBjb2xvcj1jKCJvcmFuZ2UiLCJibHVlIiwicHVycGxlIikpDQoNCmNlbnRyb19oaXN0b3JpY28gPC0gbGVhZmxldChkYXRhPWNlbnRfaGlzdCkgJT4lIA0KDQphZGRUaWxlcygpICU+JSAgDQoNCmFkZE1hcmtlcnMobGF0PX5sYXRpdHVkLGxuZz1+bG9uZ2l0dWQpICU+JSANCg0KYWRkQ2lyY2xlTWFya2VycyhsYXQ9fmxhdGl0dWQsbG5nPX5sb25naXR1ZCxjb2xvcj1+Y29sb3IscmFkaXVzPTMwKSAlPiUgDQoNCmFkZE1pbmlNYXAocG9zaXRpb249ImJvdHRvbWxlZnQiLHRvZ2dsZURpc3BsYXk9VFJVRSkNCg0KY2VudHJvX2hpc3Rvcmljbw0KYGBgDQoNCiMjIE3Dumx0aXBsZXMgTWFyY2Fkb3JlcyAtIENhc28gSUkNCg0KYGBge3J9DQpwdW50b3MgPC0gcmVhZC5jc3YoIkY6L0RJU0NPMy9Eb2N1bWVudHMvcHl0aG9uX2ZvbGl1bS9wdW50b3NfZG9tLnR4dCIpDQoNCnB1bnRvc19mcmFtZSA8LSBkYXRhLmZyYW1lKHB1bnRvcykNCg0KY2VudHJvX2hpc3RvcmljbyA8LSBsZWFmbGV0KGRhdGE9cHVudG9zX2ZyYW1lKSAlPiUgDQoNCmFkZFRpbGVzKCkgJT4lICANCg0KYWRkTWFya2VycyhsYXQ9fmxhdGl0dWQsbG5nPX5sb25naXR1ZCkgJT4lIA0KDQphZGRDaXJjbGVNYXJrZXJzKGxhdD1+bGF0aXR1ZCxsbmc9fmxvbmdpdHVkLGNvbG9yPX5jb2xvcixyYWRpdXM9MzApDQoNCmNlbnRyb19oaXN0b3JpY28NCmBgYA0KDQo8ZGl2IGNsYXNzPSJ0b2NpZnktZXh0ZW5kLXBhZ2UiIGRhdGEtdW5pcXVlPSJ0b2NpZnktZXh0ZW5kLXBhZ2UiIHN0eWxlPSJoZWlnaHQ6IDA7Ij48L2Rpdj4NCg==