> data(world.cities) > world.cities[world.cities$country.etc=='China',] > map.cities(country = "China", capitals = 2)