Average colors of the world

[jonm (Jon McLoone)]

Open in Wolfram Cloud ↗

[wolframcommunity (EDITORIAL BOARD)]

– you have earned Featured Contributor Badge
Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

[okazakikotaro (Kotaro Okazaki)]

Thanks for your interesting post.
Here is the closeup on Japan.

GeoGraphics[{GeoStyling[Once[countryColor[#]]], #["Polygon"]}&/@ 
  EntityList[Entity["Country","Japan"]["AdministrativeDivisions"]], GeoBackground -> None]

[jonm (Jon McLoone)]

It takes a little more effort to get county level images for the UK…

GeoGraphics[({GeoStyling[Once[countryColor[#1]]], #1[ "Polygon"]} & ) /@ 
    Flatten[(#1["Subdivisions"] & ) /@ 
    Entity["Country", "UnitedKingdom"]["AdministrativeDivisions"]] /.        
    {RGBColor[_ImageMeasurements] :> None, {_, _Missing} :> Nothing}, 
GeoBackground -> None]

[Vitaliyk (Vitaliy Kaurov)]

What a cool idea! I like GeoProjection->"WinkelTripel" at least for the world maps, so here is this version. I also wonder if the average color of satellite images depend on the time of the year when they are taken.