地図上に位置をプロットする

ある町における学校の位置を表示する．

In[1]:=

Legended[GeoListPlot[
  GatherBy[EntityValue[
    Entity["SchoolDistrict", "ILChampaignCusd41709420"], "Schools"], 
   EntityValue[#, "GradeSpan"] &], PlotMarkers -> None, 
  PlotStyle -> ColorData[112, "ColorList"], GeoRange -> \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "Champaign", 
       WolframAlphaClient`Private`boxes$$ = 
       TemplateBox[{"\"Champaign\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"City\"", ",", 
RowBox[{"{", 
RowBox[{"\"Champaign\"", ",", "\"Illinois\"", ",", 
                 "\"UnitedStates\""}], "}"}]}], "]"}], 
         "\"Entity[\\\"City\\\", {\\\"Champaign\\\", \
\\\"Illinois\\\", \\\"UnitedStates\\\"}]\"", "\"city\""}, "Entity"], 
       WolframAlphaClient`Private`allassumptions$$ = {}, 
       WolframAlphaClient`Private`assumptions$$ = {}, 
       WolframAlphaClient`Private`open$$ = {1, 2}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 1, 
Dynamic[WolframAlphaClient`Private`query$$], 
Dynamic[WolframAlphaClient`Private`boxes$$], 
Dynamic[WolframAlphaClient`Private`allassumptions$$], 
Dynamic[WolframAlphaClient`Private`assumptions$$], 
Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],
ImageSizeCache->{134., {10., 18.}},
TrackedSymbols:>{
         WolframAlphaClient`Private`query$$, 
          WolframAlphaClient`Private`boxes$$, 
          WolframAlphaClient`Private`allassumptions$$, 
          WolframAlphaClient`Private`assumptions$$, 
          WolframAlphaClient`Private`open$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)], 
 PointLegend[
  112, {"high school", "middle school", "grade school", "preschool"}, 
  LegendMarkerSize -> 14]]

Out[1]=

Wolfram Mathematica

地図上に位置をプロットする

Mathematica

Wolfram Mathematica

地図上に位置をプロットする

Related Examples

Mathematica