Use Manipulate to obtain maps with CountryData

Questions
,
1

In Help information we have this little program, that I modified

Graphics[{White, CountryData["Italy", "Polygon"], PointSize[Large], 
  Red, Point[Reverse[CityData[#, "Coordinates"]]] & /@ 
   CityData[{Large, "Italy"}]}, ImageSize -> {250, 250}]

I want use Manipulate to obtain map of all country. What is the solution ? I rarely use Manipulate and the solutions proposed in the Help of Manipulate don’t work.

2

Hi André,

Is this what you are looking for?

Manipulate[
 Graphics[{EdgeForm[Black], LightGray, 
   CountryData[country, "Polygon"], PointSize[Large], Red, 
   Point[Reverse[CityData[#, "Coordinates"]]] & /@ 
    CityData[{Large, country}]}, ImageSize -> {250, 250}], {country, 
  CountryData[] // CanonicalName, ControlType -> PopupMenu}]

1568plot.png
1568plot.png451×425 16.9 KB

3

Thanks very much
A. D