title:“mapa en R” #voy a crear una mapa de Bogotá, donde mostraré algunos sitios de interes para mi.Lo primero a realizar es nombrar una variable y en ella voy a almacenar un data.frame que ocntenga las coordenadas de los sitios de interes
Bogota<-data.frame(
lng=c(-74.139043,-74.087079,-74.141661,-74.142209,-74.078670,-74.135874),
lat=c(4.616766,4.635938,4.617874,4.637548,4.632290,4.618336)
)
Bogota## lng lat
## 1 -74.13904 4.616766
## 2 -74.08708 4.635938
## 3 -74.14166 4.617874
## 4 -74.14221 4.637548
## 5 -74.07867 4.632290
## 6 -74.13587 4.618336#ahora, para los mensajes que señalaran cada sitio, voy a crear otra variable en la que almacenaré usando un vector, los mensajes que vaya a colocar en cada marcador
Bogota.popup = popup = c("Esta es mi casa, aqui vivo con mi madre y mi hermano","Esta es mi facultad, Ciencias agrarias","este es mi colegio, aqui realize mis estudios basicos","aqui tuve mi primer trabajo","aqui tuve mi primera experiencia como universitario","Plaza de Las Americas, aqui salgo con mi familia los fines de semana")
Bogota.popup## [1] "Esta es mi casa, aqui vivo con mi madre y mi hermano"
## [2] "Esta es mi facultad, Ciencias agrarias"
## [3] "este es mi colegio, aqui realize mis estudios basicos"
## [4] "aqui tuve mi primer trabajo"
## [5] "aqui tuve mi primera experiencia como universitario"
## [6] "Plaza de Las Americas, aqui salgo con mi familia los fines de semana"#ahora, se procedera a realizar el mapa en si, para ello se usara la libreria leaflet y se tomará como guia, el ejemplo dado en clase
library(leaflet)## Warning: package 'leaflet' was built under R version 3.6.3Bogota %>%
leaflet() %>%
addTiles() %>%
addMarkers(popup = Bogota.popup, clusterOptions = markerClusterOptions())Bogota## lng lat
## 1 -74.13904 4.616766
## 2 -74.08708 4.635938
## 3 -74.14166 4.617874
## 4 -74.14221 4.637548
## 5 -74.07867 4.632290
## 6 -74.13587 4.618336