dt2 = Open(
"https://en.wikipedia.org/wiki/List_of_countries_and_territories_by_the_United_Nations_geoscheme",
HTML Table( 1, Column Names( 1 ), Data Starts( 2 ) )
);
dt2 << New Column( "Country",Character,Formula( Word( 1, :"Country / Area"n, "{\!"" ) ));
For Each Row(
dt2,
dt2:Geographical Subregion[] = Map Value(
dt2:Geographical Subregion,
{"Australia and New Zealand", "-", "Caribbean", "East", "Central America",
"central", "Central Asia", "central", "Eastern Africa", "East",
"Eastern Asia", "East", "Eastern Europe", "East", "Melanesia", "-",
"Micronesia", "-", "Middle Africa", "central", "Northern Africa",
"North", "Northern America", "North", "Northern Europe", "North",
"Polynesia", "-", "South America", "South", "South-eastern Asia",
"South", "Southern Africa", "South", "Southern Asia", "South",
"Southern Europe", "South", "Western Africa", "West", "Western Asia",
"West", "Western Europe", "West", "—", "-"},
Unmatched( dt2:Geographical Subregion )
)
);
dt2 << Graph Builder(
Variables(
Page( :Continental Region, Levels per Row( 2 ) ),
Color( :Geographical Subregion ),
Shape( :Country )
),
Elements( Map Shapes( Legend( 24 ) ) )
)