Wolfram Language

Enhanced Geo Visualization

Place Icons on Maps

There are hundreds of icons available to use.

In[1]:=
Click for copyable input
Length[icons = EntityList["Icon"]]
Out[1]=

Look at a small sample of the icons.

show complete Wolfram Language input
In[2]:=
Click for copyable input
Grid[{ImageResize[#, {{25}, {25}}], Text[#2]} & @@@ EntityValue[RandomSample[icons, 10], {"Image", "Name"}], Alignment -> Left]
Out[2]=

Get a list of public schools in Urbana, IL, and show their locations with a "public school" icon.

In[3]:=
Click for copyable input
schools = \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "Urbana school district", Typeset`boxes$$ = TemplateBox[{"\"Urbana School District 116\"", RowBox[{"Entity", "[", RowBox[{"\"SchoolDistrict\"", ",", "\"ILUrbanaSd1161739960\""}], "]"}], "\"Entity[\\\"SchoolDistrict\\\", \ \\\"ILUrbanaSd1161739960\\\"]\"", "\"school district\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "SubCategory", "word" -> "Urbana school district", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "2", "Values" -> {{ "name" -> "ILUrbanaSd1161739960", "desc" -> "Urbana School District 116 (Urbana, Illinois)", "input" -> "*DPClash.USSchoolDistrictE.Urbana+school+\ district-_*ILUrbanaSd1161739960-"}, { "name" -> "OHUrbanaCity3904494", "desc" -> "Urbana City School District (Urbana, Ohio)", "input" -> "*DPClash.USSchoolDistrictE.Urbana+school+\ district-_*OHUrbanaCity3904494-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 1.037723`6.467626436000824, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{314., {7., 15.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["Schools"]
Out[3]=
In[4]:=
Click for copyable input
GeoGraphics[{{EdgeForm[{Thick, Black}], GeoStyling["StreetMapNoLabels"], Polygon[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "Urbana", Typeset`boxes$$ = TemplateBox[{"\"Urbana\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Urbana\"", ",", "\"Illinois\"", ",", "\"UnitedStates\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Urbana\\\", \\\"Illinois\\\", \ \\\"UnitedStates\\\"}]\"", "\"city\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "Urbana", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "3", "Values" -> {{ "name" -> "City", "desc" -> "a city", "input" -> "*C.Urbana-_*City-"}, { "name" -> "AdministrativeDivision", "desc" -> "an administrative division", "input" -> "*C.Urbana-_*AdministrativeDivision-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.Urbana-_*GivenName-"}}}, { "type" -> "SubCategory", "word" -> "Urbana", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "{Urbana, Illinois, UnitedStates}", "desc" -> "Urbana (Illinois, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Illinois.\ UnitedStates--"}, { "name" -> "{Urbana, Ohio, UnitedStates}", "desc" -> "Urbana (Ohio, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Ohio.\ UnitedStates--"}, { "name" -> "{Urbana, Iowa, UnitedStates}", "desc" -> "Urbana (Iowa, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Iowa.\ UnitedStates--"}, { "name" -> "{Urbana, NewYork, UnitedStates}", "desc" -> "Urbana (New York, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.NewYork.\ UnitedStates--"}, { "name" -> "{Urbana, Missouri, UnitedStates}", "desc" -> "Urbana (Missouri, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Missouri.\ UnitedStates--"}, { "name" -> "{Urbana, Veneto, Italy}", "desc" -> "Urbana (Italy)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Veneto.Italy-\ -"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.533521`6.178696511923054, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{132., {7., 15.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)]}, GeoMarker[schools, \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "public school icon", Typeset`boxes$$ = TemplateBox[{"\"public school\"", RowBox[{"Entity", "[", RowBox[{"\"Icon\"", ",", "\"PublicSchool\""}], "]"}], "\"Entity[\\\"Icon\\\", \\\"PublicSchool\\\"]\"", "\"icon\""}, "Entity"], Typeset`allassumptions$$ = {}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 1.774154`6.700536308229228, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{151., {7., 15.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)]}, ImageSize -> {{500}, {500}}, GeoBackground -> RGBColor[0.984314, 0.968627, 0.870588]]
Out[4]=

Related Examples

de es fr ja ko pt-br ru zh