Place Icons on Maps
There are hundreds of icons available to use.
In[1]:=
Length[icons = EntityList["Icon"]]Out[1]=
Look at a small sample of the icons.
show complete Wolfram Language input
Out[2]=
Get a list of public schools in Urbana, IL, and show their locations with a "public school" icon.
In[3]:=
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]:=
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]=
