I'm sure I'm overlooking something obvious, but I can't draw groups of countries. Here are two countries and two country groups:
france = CountryData["France", "Coordinates"] ;
usa = CountryData["United States", "Coordinates"];
eu = CountryData["EU", "Coordinates"];
africa = CountryData["Africa", "Coordinates"];
Swapping the coordinates so that longitude comes before latitude:
franceA = Cases[france , {lat_, long_} :> {long, lat}, Infinity];
usaA = Cases[usa, {lat_, long_} :> {long, lat}, Infinity];
euA = Cases[eu, {lat_, long_} :> {long, lat}, Infinity];
africaA = Cases[africa, {lat_, long_} :> {long, lat}, Infinity];
They should all plot:
Table[Graphics[Line[coords]],
{coords, {franceA, usaA, euA, africaA}}]
but the groups don't:
And I tried this:
Table[
Graphics[
Polygon /@ Map[
GeoGridPosition[GeoPosition[#],
"Mercator"][[1]] &, {coords}, {2}]],
{coords, {france, usa, eu, africa}}]
with a similar problem:
I'm thinking that two of the lists are the wrong shape or size, but they look OK:
Dimensions[#] & /@
{france, usa, eu, africa, franceA, usaA, euA, africaA}
{{2}, {1, 4672, 2}, {27}, {58}, {1110, 2}, {4672, 2}, {18404, 2}, {16082, 2}}
I may need some Flatten
ing magic somewhere...?