1. Introdution

Este cuaderno tiene como objetivo mostrar los pasos necesarios para la realizacion de un mapa con ayuda de las herramientas que nos proporciona R studio.

2. Procedure

Se instala el paquete de librerias leaflet para hacer mapas en R studio. el proceso para instalar las librerias.

install.packages("leaflet")

este es el comando que se usa para instalar leaflet, un paquete que nos permite realizar cuadernos en R studio.

library(leaflet)

Este comando hace el uso de la libreria leaflet, lo que nos permite desarrollar varios codigos y manejar las coordenadas de ciertos lugares.

cities<-read.csv(file="C:/Users/HP LAPTOP/Desktop/cities.txt", header=FALSE, sep=";")

para subir las coordenadas de las ciudades con las que se va a trabajar se usar el codigo de cities Read.


cities
NA
class(cities)
[1] "data.frame"

Este codigo nos muestra la clase o el formato del objeto que se acaba de mostrar.

names(cities)<-c("id", "country", "city", "latitude", "altitude")

este comando sirve para marcar los titulos de la tabla que se mostro con el comando cities

cities

este comando muestra la tabla de abajo, y con el comando de abajo muestra pequeñas modificaciones en la parte inferior de la tabla.

tail(cities)
leaflet(cities)%>%
  addCircles(lng=~altitude, lat=~latitude)

este comando genera un mapa con puntos y sin fondo. estos puntos indican las coordenadas de la ciudades de colombia.

m<-leaflet(cities) %>% 
  addTiles() %>%
  addMarkers(lng=~altitude, lat=~latitude, popup="cities")

este comando agrega un fondo para el mapa, con eso los puntos quedan ubicados espacialmente.

m

leaflet() %>% addTiles() %>% setView(-74.0995292016782, 4.66667195, zoom = 70)

LS0tDQp0aXRsZTogIkdlb21hdGljYSAxIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQpBdXRob3I6IE1pZ3VlbCBTYW50aWFnbyBNb3JhbGVzIFJ1aXoNCkRhdGU6IDI1LzAyLzIwMjENCi0tLSANCiMjIDEuIEludHJvZHV0aW9uIA0KDQpFc3RlIGN1YWRlcm5vIHRpZW5lIGNvbW8gb2JqZXRpdm8gbW9zdHJhciBsb3MgcGFzb3MgbmVjZXNhcmlvcyBwYXJhIGxhIHJlYWxpemFjaW9uIGRlIHVuIG1hcGEgY29uIGF5dWRhIGRlIGxhcyBoZXJyYW1pZW50YXMgcXVlIG5vcyBwcm9wb3JjaW9uYSBSIHN0dWRpby4gDQoNCiMjIDIuIFByb2NlZHVyZSANCg0KU2UgaW5zdGFsYSBlbCBwYXF1ZXRlIGRlIGxpYnJlcmlhcyAqbGVhZmxldCogcGFyYSBoYWNlciBtYXBhcyBlbiBSIHN0dWRpby4NCmVsIHByb2Nlc28gcGFyYSBpbnN0YWxhciBsYXMgbGlicmVyaWFzLg0KYGBge3J9DQppbnN0YWxsLnBhY2thZ2VzKCJsZWFmbGV0IikNCmBgYA0KZXN0ZSBlcyBlbCBjb21hbmRvIHF1ZSBzZSB1c2EgcGFyYSBpbnN0YWxhciBsZWFmbGV0LCB1biBwYXF1ZXRlIHF1ZSBub3MgcGVybWl0ZSByZWFsaXphciBjdWFkZXJub3MgZW4gUiBzdHVkaW8uDQpgYGB7cn0NCmxpYnJhcnkobGVhZmxldCkNCmBgYA0KRXN0ZSBjb21hbmRvIGhhY2UgZWwgdXNvIGRlIGxhIGxpYnJlcmlhIGxlYWZsZXQsIGxvIHF1ZSBub3MgcGVybWl0ZSBkZXNhcnJvbGxhciB2YXJpb3MgY29kaWdvcyB5IG1hbmVqYXIgbGFzIGNvb3JkZW5hZGFzIGRlIGNpZXJ0b3MgbHVnYXJlcy4gDQoNCmBgYHtyfQ0KY2l0aWVzPC1yZWFkLmNzdihmaWxlPSJDOi9Vc2Vycy9IUCBMQVBUT1AvRGVza3RvcC9jaXRpZXMudHh0IiwgaGVhZGVyPUZBTFNFLCBzZXA9IjsiKQ0KYGBgDQpwYXJhIHN1YmlyIGxhcyBjb29yZGVuYWRhcyBkZSBsYXMgY2l1ZGFkZXMgY29uIGxhcyBxdWUgc2UgdmEgYSB0cmFiYWphciBzZSB1c2FyIGVsIGNvZGlnbyBkZSBjaXRpZXMgUmVhZC4gDQpgYGB7cn0NCg0KY2l0aWVzDQoNCmBgYA0KDQoNCmBgYHtyfQ0KYGBgDQpgYGB7cn0NCmNsYXNzKGNpdGllcykNCmBgYA0KRXN0ZSBjb2RpZ28gbm9zIG11ZXN0cmEgbGEgY2xhc2UgbyBlbCBmb3JtYXRvIGRlbCBvYmpldG8gcXVlIHNlIGFjYWJhIGRlIG1vc3RyYXIuDQpgYGB7cn0NCm5hbWVzKGNpdGllcyk8LWMoImlkIiwgImNvdW50cnkiLCAiY2l0eSIsICJsYXRpdHVkZSIsICJhbHRpdHVkZSIpDQpgYGANCmVzdGUgY29tYW5kbyBzaXJ2ZSBwYXJhIG1hcmNhciBsb3MgdGl0dWxvcyBkZSBsYSB0YWJsYSBxdWUgc2UgbW9zdHJvIGNvbiBlbCBjb21hbmRvIGNpdGllcyANCmBgYHtyfQ0KY2l0aWVzDQpgYGANCmVzdGUgY29tYW5kbyBtdWVzdHJhIGxhIHRhYmxhIGRlIGFiYWpvLCB5IGNvbiBlbCBjb21hbmRvIGRlIGFiYWpvIG11ZXN0cmEgcGVxdWXDsWFzIG1vZGlmaWNhY2lvbmVzIGVuIGxhIHBhcnRlIGluZmVyaW9yIGRlIGxhIHRhYmxhLiANCmBgYHtyfQ0KdGFpbChjaXRpZXMpDQpgYGANCmBgYHtyfQ0KbGVhZmxldChjaXRpZXMpJT4lDQogIGFkZENpcmNsZXMobG5nPX5hbHRpdHVkZSwgbGF0PX5sYXRpdHVkZSkNCmBgYA0KZXN0ZSBjb21hbmRvIGdlbmVyYSB1biBtYXBhIGNvbiBwdW50b3MgeSBzaW4gZm9uZG8uIGVzdG9zIHB1bnRvcyBpbmRpY2FuIGxhcyBjb29yZGVuYWRhcyBkZSBsYSBjaXVkYWRlcyBkZSBjb2xvbWJpYS4gIA0KYGBge3J9DQptPC1sZWFmbGV0KGNpdGllcykgJT4lIA0KICBhZGRUaWxlcygpICU+JQ0KICBhZGRNYXJrZXJzKGxuZz1+YWx0aXR1ZGUsIGxhdD1+bGF0aXR1ZGUsIHBvcHVwPSJjaXRpZXMiKQ0KYGBgDQplc3RlIGNvbWFuZG8gYWdyZWdhIHVuIGZvbmRvIHBhcmEgZWwgbWFwYSwgY29uIGVzbyBsb3MgcHVudG9zIHF1ZWRhbiB1YmljYWRvcyBlc3BhY2lhbG1lbnRlLiANCmBgYHtyfQ0KbQ0KYGBgDQpgYGB7cn0NCmBgYA0KbGVhZmxldCgpICU+JSBhZGRUaWxlcygpICU+JSBzZXRWaWV3KC03NC4wOTk1MjkyMDE2NzgyLCA0LjY2NjY3MTk1LCB6b29tID0gNzApDQoNCmBgYHtyfQ0KYGBgDQoNCg0K