R Notebook

library(readxl)
library(leaflet)
Ciudades_ <- read.csv("cities.txt", header = F, sep = ";")
View(Ciudades_)
names(Ciudades_)=c("id","pais","ciudad","latitud","longitud","altitud");Ciudades_
attach(Ciudades_)

library(leaflet)
m <- leaflet() %>%
  addTiles() %>%  # Añade por defecto los Tiles de  OpenStreetMap
  addMarkers(lng=Ciudades_$longitud, lat=Ciudades_$latitud, popup=Ciudades_$ciudad)
m  # Imprime el mapa