cuaderno2

###Introduccion Este es un R markdown notebook. Se vera algunas ciudades con su respectivas cordendas.

###Desarrollo lugar donde se descargaron los datos de la ciudadesBahar´s github website ### corriendo los codigos

library(leaflet)

cities<- read.csv(file = "ciudades.txt", header = F, sep = ";") 

head(cities)

##     V1      V2           V3        V4        V5   V6
## 1 2338 Colombi       Bogota  4.600000 -74.08334 2620
## 2 2339 Colombi         Cali  3.437222 -76.52250  758
## 3 2340 Colombi     Medellin  6.291389 -75.53611 2076
## 4 2341 Colombi Barranquilla 10.963889 -74.79639   33
## 5 2342 Colombi    Cartagena 10.399722 -75.51444   36
## 6 2343 Colombi       Cucuta  7.883333 -72.50528  314

names(cities) <- c("id", "Pais","Ciudad", "Latitud", "Longitud", "Altud")

head(cities)

##     id    Pais       Ciudad   Latitud  Longitud Altud
## 1 2338 Colombi       Bogota  4.600000 -74.08334  2620
## 2 2339 Colombi         Cali  3.437222 -76.52250   758
## 3 2340 Colombi     Medellin  6.291389 -75.53611  2076
## 4 2341 Colombi Barranquilla 10.963889 -74.79639    33
## 5 2342 Colombi    Cartagena 10.399722 -75.51444    36
## 6 2343 Colombi       Cucuta  7.883333 -72.50528   314

leaflet(cities)  %>%
  addCircles(lng= ~Longitud, lat = ~Latitud, popup = ~Ciudad ) 

m<- leaflet(cities) %>%
  addTiles() %>%
  addMarkers(lng= ~Longitud, lat = ~Latitud, popup = ~Ciudad )

m