# NOT RUN {
library(maps)
data(world.cities)
cities_lon_lat <- world.cities[!duplicated(world.cities$name),]
rownames(cities_lon_lat) = cities_lon_lat[,1]
cities_lon_lat <- cities_lon_lat[cities_lon_lat$pop > 50000,]
cities_lon_lat <- cities_lon_lat[,4:5]
# }
Run the code above in your browser using DataLab