New answers tagged

11

With GeoGraphics: GeoGraphics[{GeoStyling@Opacity@1, RandomColor[], CountryData[#, "SchematicPolygon"]} & /@ Join[CountryData["Continents"], CountryData[]], GeoBackground -> Hue[0.56, .8, .8, .5], GeoRange -> "World", GeoProjection -> "Robinson", Background -> White]


3

From its doc Graphics[{Hue[ 2/3 Sqrt[ 1 - (CountryData[#, "IndependenceYear"] /. {DateObject[{y_}] :> y, _Missing -> First[DateList[]]})/First[DateList[]]]], CountryData[#, "SchematicPolygon"]} & /@ CountryData[]] which makes it plot countries color coded by the length of their claimed independence. You can plot by any ...


2

This question was asked couple of times so let's keep the reference. GeoZoomLevel is an option for specifying the resolution at which to render a map. GeoGraphics[ Entity["City", {"Berlin", "Berlin", "Germany"}], GeoRange -> Quantity[10, "Kilometers"], GeoZoomLevel -> #, ImageSize -> 500 ] & /@ {10, Automatic, 15}


4

jose gave the best answer this question in comments, so I will add it here. As plotted, the PlotRange of the density plot is {{-113.032, -109.298}, {36.3135, 42.7765}}, but the GeoBounds for the map is {{-114.051, -109.045}, {36.9991, 42.0016}}. Apparently this mismatch is the problem. sdh = SmoothDensityHistogram[Reverse[dat, 2], PlotRangePadding -&...


4

GeoElevationData has elevation data for the whole world. If you know the position (I hope I interpreted correctly the wikipedia data from your link): In[]:= p = GeoPosition[{FromDMS[{42, 19, 32.}], FromDMS[{41, 51, 06.}]}] Out[]= GeoPosition[{42.3256, 41.8517}] then you can evaluate your same commands, replacing the entity by that position: data = ...


7

First (update: I guess the missing ones should be deleted), alldistricts = DeleteMissing@ EntityList["USCongressionalDistrict"]; allpolygons = #["Polygon"] & /@ alldistricts (* // DeleteMissing *); Then find the GeoArea[poly] and perimeter* of them. Note that you might want to compute a dimensionless quantity such as perimeter^2/area. Update: The ...


8

The US congressional districts are available as geographic entities in the form Entity["USCongressionalDistrict", "Illinois:District7"] As such, in principle you can enumerate them using GeoEntities[Entity["Country", "UnitedStates"], "USCongressionalDistrict"] but this is liable to timing out because you're asking for a lot of data, so instead you can ...


2

I think what happened here is that "PublicLibrary" got split into "LibrarySystem" and "LibraryBranch" databases, only the first of which has the information we need. allLibraries = EntityValue["LibrarySystem", "Entities"]; cities = EntityValue[allLibraries, EntityProperty["LibrarySystem", "City"]]; books = EntityValue[allLibraries, EntityProperty["...


2

What is the bug? It seems that GeoRegionValuePlot will not work correctly when two or more entities have the exact same value. Consider these examples (and ignore the legend, which is always wrong unless you give an explicit ColorFunction as below): GeoRegionValuePlot[{Entity[ "AdministrativeDivision", {"Arkansas", "UnitedStates"}] -> 1, Entity["...



Top 50 recent answers are included