Robert_Hoo install.packages("maps") library(maps) data(world.cities) capital <- world.cities[world.cities$capital == 1, ]