GeoGraphPlot
GeoGraphPlot
GeoGraphPlot[{e1,e2,…}]
生成边为 ei 的地理图形.
GeoGraphPlot[{v1,v2,…},{e1,e2,…}]
生成顶点为 vi 和边为 ej 的图形.
GeoGraphPlot[{vi vj ,…}]
使用规则 vivj 指定图.
GeoGraphPlot[g]
在地图上的地理位置显示带有顶点的图形 g.
GeoGraphPlot[{…,w[ei],…}]
绘制 ei 的图形，其特征由符号式包装 w 定义.
更多信息和选项
- GeoGraphPlot 通过将地理对象作为顶点并将它们之间的连接作为边来显示地图上位置之间的网络. 边通常不对应于位置之间的特定路线.
- 顶点 u 和 v 之间的无向边 ei 可以通过 uv、u<->v、UndirectedEdge[u,v] 或 TwoWayRule[u,v] 给出. 符号 可以通过输入
ue
实现. - 从 u 到 v 的有向边 ei 可以通过 uv、u->v、DirectedEdge[u,v] 或 Rule[u,v] 给出. 符号 可以通过输入
de
实现. - 地理顶点 vi 可以采用以下形式：
-
GeoPosition[{lat,lon}] 纬度和经度 Entity[…] 地理实体 Dated[ent,date] 带日期的实体 Image[…] 带有地理标签的图像 - 选项 VertexCoordinates 可用于为尚未包含地理位置的顶点指定地理位置.
- 以下特殊包装可用于顶点和边：
-
Annotation[a,label] 提供注释 Button[a,action] 定义单击元素时要执行的动作 EventHandler[a,…] 为元素定义通用事件处理程序 Hyperlink[a,uri] 使元素作为超链接 Labeled[a,…] 显示带有标签的元素 PopupWindow[a,cont] 将弹出窗口附加到元素 StatusArea[a,label] 将鼠标移到元素上时，在状态区域中显示 Style[a,opts] 使用指定的样式显示元素 Tooltip[a,label] 对元素附加任意工具提示 - GeoGraphPlot 具有与 GeoGraphics 相同的选项，并有下列增加和更改： [所有选项的列表]
-
AnnotationRules {} 图、边和顶点的注释 DirectedEdges False 是否将 Rule 解释为 DirectedEdge EdgeLabels None 边的标签和位置 EdgeLabelStyle Automatic 用于边标签的样式 EdgeShapeFunction Automatic 生成边的图形形状 EdgeStyle Automatic 边的样式 GraphHighlight {} 要突出显示的顶点和边 GraphHighlightStyle Automatic 要突出显示的样式 GraphLayout Automatic 如何布局图元素 Method Automatic 使用方法 PerformanceGoal Automatic 尝试优化的性能方面 PlotStyle Automatic 确定样式的图形指令 PlotTheme Automatic 图的整体主题 VertexCoordinates Automatic 顶点坐标 VertexLabels None 顶点的标签和位置 VertexLabelStyle Automatic 用于顶点标签的样式 VertexShape Automatic 顶点的图形形状 VertexShapeFunction Automatic 生成顶点的图形形状 VertexSize Automatic 顶点大小 VertexStyle Automatic 顶点样式 - GraphLayout 指定在何处绘制连接地理位置的边.
- GraphLayout 的可能设置包括：
-
Automatic 自动计算边 
"StraightLine" 使用直线作为边 
"Geodesic" 使用测地线作为边 
"Rhumb" 使用 Rhumb 线作为边 
"Driving","Walking","Cycling" 交通方式 - 默认情况下，GeoGraphPlot 生成的边是抽象路径，当出现在图中时，会显示自环和两个顶点之间的多个边.
- 如果在两个顶点之间找不到行进路径，则边将使用 "StraightLine" 代替.
- EdgeShapeFunctionfunc 指定应使用 func[{pt1,pt2},vw] 提供的图元渲染每个顶点，其中 pt1 和 pt2 边是边 vw 的顶点的地理位置.
- VertexCoordinates 可以使用以下形式为顶点提供地理位置：
-
{loc1,loc2,…} 将顶点 v1 放置在位置 loc1，以此类推 GeoPosition[{pos1,pos2,…}] 大地测量位置数组 {v1loc1,…} 将顶点 v1 放置在位置 loc1，以此类推 - VertexCoordinates 中的 loci 可以是地理位置、实体、带有地理标签的图像等.
- VertexLabelsAutomatic 自动标记已命名位置的顶点. 使用纬度和经度指定的顶点则不加标签.
- 图的特征主题会影响顶点和边线的绘制. 特征主题包括：
-
"LargeGraph" 大图 
"NameLabeled" 经典图 
"IndexLabeled" 索引标记图
所有选项的列表
范例
打开所有单元 关闭所有单元基本范例 (3)
GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]}]GeoGraphPlot[IconizedObject[«Europe»], GraphLayout -> "Driving"]graph = NearestNeighborGraph[EntityValue[{Entity["City", {"Chicago", "Illinois", "UnitedStates"}], Entity["City", {"Aurora", "Illinois", "UnitedStates"}], Entity["City", {"Rockford", "Illinois", "UnitedStates"}], Entity["City", {"Joliet", "Illinois", "UnitedStates"}], Entity["City", {"Naperville", "Illinois", "UnitedStates"}], Entity["City", {"Springfield", "Illinois", "UnitedStates"}], Entity["City", {"Peoria", "Illinois", "UnitedStates"}], Entity["City", {"Elgin", "Illinois", "UnitedStates"}]}, "Position"], 3, DistanceFunction -> GeoDistance, DirectedEdges -> False];GeoGraphPlot[graph]范围 (28)
数据 (6)
GeoGraphPlot[{Entity["Building", "MachuPicchu::3243b"]Entity["Building", "EiffelTower::5h9w8"], Entity["Building", "MachuPicchu::3243b"]Entity["City", {"Reykjavik", "Hofudhborgarsvaedhi", "Iceland"}], Entity["Building", "MachuPicchu::3243b"]Entity["Airport", "YSSY"], Entity["Building", "MachuPicchu::3243b"]Entity["Volcano", "FujiSan"], Entity["Building", "EiffelTower::5h9w8"]Entity["City", {"Reykjavik", "Hofudhborgarsvaedhi", "Iceland"}], Entity["Building", "EiffelTower::5h9w8"]Entity["Airport", "YSSY"], Entity["Building", "EiffelTower::5h9w8"]Entity["Volcano", "FujiSan"], Entity["Airport", "YSSY"]Entity["Volcano", "FujiSan"]}]GeoGraphPlot[{GeoPosition[{-13.16, -72.54}]GeoPosition[{48.85, 2.29}], GeoPosition[{-13.16, -72.54}]GeoPosition[{64.14, -21.92}], GeoPosition[{-13.16, -72.54}]GeoPosition[{-33.94, 151.17}], GeoPosition[{-13.16, -72.54}]GeoPosition[{35.35, 138.73}], GeoPosition[{48.85, 2.29}]GeoPosition[{64.14, -21.92}], GeoPosition[{48.85, 2.29}]GeoPosition[{-33.94, 151.17}], GeoPosition[{48.85, 2.29}]GeoPosition[{35.35, 138.73}], GeoPosition[{-33.94, 151.17}]GeoPosition[{35.35, 138.73}]}]GeoGraphPlot[{GeoPosition[{48.88, 116.27}]GeoPosition[{34.14, -169.53}], GeoPosition[{48.88, 116.27}]GeoPosition[{16.97, -70.37}], GeoPosition[{48.88, 116.27}]GeoPosition[{-58.80, 160.17}], GeoPosition[{34.14, -169.53}]GeoPosition[{16.97, -70.37}], GeoPosition[{34.14, -169.53}]GeoPosition[{-58.80, 160.17}], GeoPosition[{16.97, -70.37}]GeoPosition[{-58.80, 160.17}]}]graph = VertexReplace[Graph[{"LHR" -> "JFK", "LHR" -> "DXB", "LHR" -> "HKG", "LHR" -> "LAX", "LHR" -> "SIN", "LAX" -> "JFK", "LAX" -> "SYD", "SYD" -> "DXB", "TPE" -> "LAX", "LAX" -> "ICN"}], {"DXB" -> Entity["Airport", "DXB"], "HKG" -> Entity["Airport", "HKG"], "ICN" -> Entity["Airport", "ICN"], "JFK" -> Entity["Airport", "JFK"], "LAX" -> Entity["Airport", "LAX"], "LHR" -> Entity["Airport", "LHR"], "SIN" -> Entity["Airport", "SIN"], "SYD" -> Entity["Airport", "SYD"], "TPE" -> Entity["Airport", "TPE"]}];GeoGraphPlot[graph]GeoGraphPlot[{[image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image]}, {[image][image], [image][image], [image][image], [image][image], [image][image], [image][image], [image][image], [image][image], [image][image]}, VertexLabels -> Placed[Automatic, Tooltip]]使用 VertexCoordinates 放置顶点：
GeoGraphPlot[{"The Big Apple""Emerald City", "The Big Apple""City of Trees", "The Big Easy""The Big Apple", "Wolfram Headquarters""The Big Apple", "Emerald City""Windy City", "Charm City""Windy City", "Windy City""Wolfram Headquarters", "Wolfram Headquarters""Wolfram Headquarters"}, VertexCoordinates -> {"The Big Apple" -> Entity["City", {"NewYork", "NewYork", "UnitedStates"}], "Emerald City" -> Entity["City", {"Seattle", "Washington", "UnitedStates"}], "City of Trees" -> Entity["City", {"BoiseCity", "Idaho", "UnitedStates"}], "The Big Easy" -> Entity["City", {"Boston", "Massachusetts", "UnitedStates"}], "Windy City" -> Entity["City", {"Chicago", "Illinois", "UnitedStates"}], "Charm City" -> Entity["City", {"Baltimore", "Maryland", "UnitedStates"}], "Wolfram Headquarters" -> Entity["City", {"Champaign", "Illinois", "UnitedStates"}]}]标签 (5)
使用 Labeled 标记特定边：
edges = {Labeled[Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], "Paris to Madrid"], Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]};GeoGraphPlot[edges]使用 EdgeLabels 选项指定边的标签：
GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]}, EdgeLabels -> {Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Milan", "Lombardy", "Italy"}] -> "Paris to Milan"}]edges = {Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]};GeoGraphPlot[edges, VertexLabels -> Automatic]使用 Labeled 标记特定的顶点：
vertices = {Labeled[Entity["City", {"Barcelona", "Barcelona", "Spain"}], "Barcelona"], Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Rome", "Lazio", "Italy"}], Entity["City", {"Seville", "Seville", "Spain"}]};GeoGraphPlot[vertices, IconizedObject[«edges»]]使用 VertexLabels 标记特定的顶点：
GeoGraphPlot[IconizedObject[«edges»], VertexLabels -> {["Barcelona"] -> "Barcelona"}]边和顶点包装 (6)
vertices = {Tooltip[Entity["City", {"Paris", "IleDeFrance", "France"}], "The city of love"], Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Rome", "Lazio", "Italy"}], Entity["City", {"Seville", "Seville", "Spain"}]};GeoGraphPlot[vertices, IconizedObject[«edges»]]vertices = {Style[Entity["City", {"Paris", "IleDeFrance", "France"}], Blue], Style[Entity["City", {"Frankfurt", "Hesse", "Germany"}], Orange], Style[Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Pink], Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Paris", "IleDeFrance", "France"}], Style[Entity["City", {"Rome", "Lazio", "Italy"}], Green], Entity["City", {"Seville", "Seville", "Spain"}]};GeoGraphPlot[vertices, IconizedObject[«edges»]]GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Style[Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Directive[Thick, Green]], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Style[Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Directive[Thick, Blue]], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Style[Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}], Directive[Thick, Orange]]}]vertices = {Button[Entity["City", {"Paris", "IleDeFrance", "France"}], Speak["Paris"]], StatusArea[Entity["City", {"Frankfurt", "Hesse", "Germany"}], "Frankfurt"], PopupWindow[Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], "London"], Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Rome", "Lazio", "Italy"}], Entity["City", {"Seville", "Seville", "Spain"}]};GeoGraphPlot[vertices, IconizedObject[«edges»]]将 Hyperlink 附加到特定边；
GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Hyperlink[Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], "https://www.wolframalpha.com/input/?i=paris+to+london"], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]}]GeoGraphPlot[{Tooltip[Entity["City", {"Paris", "IleDeFrance", "France"}], "The city of love"], Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], PopupWindow[Entity["City", {"Madrid", "Madrid", "Spain"}], "Capital of Spain"], Entity["City", {"Milan", "Lombardy", "Italy"}], Labeled[Entity["City", {"Rome", "Lazio", "Italy"}], Style["Rome", 14], Right], StatusArea[Entity["City", {"Seville", "Seville", "Spain"}], "Sevilla"], Style[Entity["City", {"Barcelona", "Barcelona", "Spain"}], Yellow]}, {Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Button[Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Print["Milan to Paris"]], Style[Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Directive[Thick, Blue]], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Style[Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Directive[Dashed, Thickness[0.01], Purple]], Hyperlink[Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], "https://www.wolframalpha.com/input/?i=paris+to+london"], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]}]
图的样式 (11)
edges = {Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Style[Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}], Directive[Thick, Blue]]};GeoGraphPlot[edges]GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]}, EdgeStyle -> Directive[Thick, Brown, Dashed]]GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]}, VertexLabels -> "Name", VertexLabelStyle -> Directive[Red, Italic, 8.5]]GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Madrid", "Madrid", "Spain"}], Style[Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Blue], Entity["City", {"Seville", "Seville", "Spain"}], Style[Entity["City", {"Barcelona", "Barcelona", "Spain"}], Green]}, {Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]}]GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]}]指定 GraphLayout：
GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}]}, GraphLayout -> "Biking", GeoBackground -> "StreetMapNoLabels"]GeoGraphPlot[IconizedObject[«air routes»], GeoBackground -> "Coastlines"]GeoGraphPlot[IconizedObject[«air routes»], GeoProjection -> "LambertAzimuthal"]GeoGraphPlot[IconizedObject[«Europe»], GeoRangePadding -> Quantity[350, "Kilometers"]]GeoGraphPlot[IconizedObject[«nearest US cities»], GeoGridLines -> Automatic]GeoGraphPlot[IconizedObject[«nearest US cities»], GeoGridLines -> {Quantity[5, "AngularDegrees"], Quantity[15, "AngularDegrees"]}]GeoGraphPlot[IconizedObject[«nearest US cities»], GeoGridLines -> {Quantity[5, "AngularDegrees"], Quantity[15, "AngularDegrees"]}, GeoGridLinesStyle -> Directive[Dashed, Blue]]GeoGraphPlot[IconizedObject[«nearest US cities»], GeoGridLines -> {Quantity[5, "AngularDegrees"], Quantity[15, "AngularDegrees"]}, GeoGridLinesStyle -> {Red, Blue}]选项 (55)
AspectRatio (3)
GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}]使用 AspectRatio1 使高度与宽度相同：
GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, AspectRatio -> 1]AspectRatioFull 调整高度和宽度以紧密适合其他结构：
plot = GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, AspectRatio -> Full];
{Framed[Pane[plot, {70, 150}]], Framed[Pane[plot, {150, 150}]], Framed[Pane[plot, {150, 75}]]}Axes (3)
默认情况下，GeoGraphPlot 不绘制 Axes：
GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}]GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True]{GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> {True, False}], GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> {False, True}]}AxesLabel (3)
GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True]
GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True, AxesLabel -> y]GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True, AxesLabel -> {x, y}]AxesOrigin (2)
GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True]GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True, AxesOrigin -> {.15, .02}]AxesStyle (4)
GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True, AxesStyle -> Red]GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True, AxesStyle -> {{Thick, Brown}, {Thick, Blue}}]GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True, AxesStyle -> Green, TicksStyle -> Black]GeoGraphPlot[{Entity["City", {"NewYork", "NewYork", "UnitedStates"}]Entity["City", {"SanDiego", "California", "UnitedStates"}]}, Axes -> True, AxesStyle -> Green, LabelStyle -> Black]EdgeLabels (6)
GeoGraphPlot[IconizedObject[«edges»], EdgeLabels -> "Index"]GeoGraphPlot[IconizedObject[«edges»], EdgeLabels -> "Name"]GeoGraphPlot[IconizedObject[«edges»], EdgeWeight -> Table[GeoDistance[e[[1]], e[[2]]], {e, IconizedObject[«edges»]}], EdgeLabels -> "EdgeWeight"]GeoGraphPlot[IconizedObject[«edges»], EdgeLabels -> {Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}] -> "Italy", Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}] -> "Spain"}]GeoGraphPlot[IconizedObject[«edges»], EdgeLabels -> {Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}] -> Placed[Quantity[471, "Kilometers"], Tooltip]}]GeoGraphPlot[IconizedObject[«edges»], EdgeLabels -> {Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}] -> Placed[Quantity[471, "Kilometers"], 0.7]}]GeoGraphPlot[IconizedObject[«edges»], EdgeLabels -> {Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}] -> Placed[Quantity[471, "Kilometers"], {0.7, {0, 0}}]}]EdgeLabelStyle (2)
GeoGraphPlot[IconizedObject[«edges»], EdgeLabels -> "Index", EdgeLabelStyle -> Directive[Blue, Italic, 12]]GeoGraphPlot[IconizedObject[«edges»], EdgeLabels -> "Index", EdgeLabelStyle -> {Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}] -> Directive[Red, Italic, 24], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}] -> Directive[Blue, Italic, 24]}]EdgeStyle (1)
Frame (4)
GeoGraphPlot 默认不使用边框：
GeoGraphPlot[IconizedObject[«data»]]GeoGraphPlot[IconizedObject[«data»], Frame -> True]GeoGraphPlot[IconizedObject[«data»], Frame -> {{True, True}, {False, False}}]GeoGraphPlot[IconizedObject[«data»], Frame -> {{True, False}, {True, False}}]FrameLabel (4)
GeoGraphPlot[IconizedObject[«data»], Frame -> True, FrameLabel -> {"label"}]GeoGraphPlot[IconizedObject[«data»], Frame -> True, FrameLabel -> {"latitude", "longitude"}]GeoGraphPlot[IconizedObject[«data»], Frame -> True, FrameLabel -> {{"left", "right"}, {"bottom", "top"}}]GeoGraphPlot[IconizedObject[«data»], Frame -> True, FrameLabel -> {{"left", "right"}, {"bottom", "top"}}, LabelStyle -> Directive[Bold, StandardBrown]]FrameStyle (2)
GeoBackground (1)
GeoCenter (1)
GeoGridLines (1)
GeoGridLinesStyle (1)
GeoGraphPlot[IconizedObject[«nearest US cities»], GeoGridLines -> {Quantity[5, "AngularDegrees"], Quantity[15, "AngularDegrees"]}, GeoGridLinesStyle -> Directive[Dashed, Blue]]GeoGraphPlot[IconizedObject[«nearest US cities»], GeoGridLines -> {Quantity[5, "AngularDegrees"], Quantity[15, "AngularDegrees"]}, GeoGridLinesStyle -> {Red, Blue}]GeoModel (1)
GeoProjection (1)
GeoGraphPlot[IconizedObject[«air routes»], GeoProjection -> "Mercator"]GeoGraphPlot[IconizedObject[«air routes»], GeoProjection -> "Orthographic"]GeoGraphPlot[IconizedObject[«air routes»], GeoProjection -> "LambertAzimuthal"]GeoRange (2)
GeoRangePadding (1)
GraphLayout (2)
PlotTheme (1)
VertexCoordinates (2)
使用 VertexCoordinates 定位顶点：
GeoGraphPlot[{"The Big Apple""Emerald City", "The Big Apple""City of Trees", "The Big Easy""The Big Apple", "Wolfram Headquarters""The Big Apple", "Emerald City""Windy City", "Charm City""Windy City", "Windy City""Wolfram Headquarters", "Wolfram Headquarters""Wolfram Headquarters"}, VertexCoordinates -> {"The Big Apple" -> Entity["City", {"NewYork", "NewYork", "UnitedStates"}], "Emerald City" -> Entity["City", {"Seattle", "Washington", "UnitedStates"}], "City of Trees" -> Entity["City", {"BoiseCity", "Idaho", "UnitedStates"}], "The Big Easy" -> Entity["City", {"Boston", "Massachusetts", "UnitedStates"}], "Windy City" -> Entity["City", {"Chicago", "Illinois", "UnitedStates"}], "Charm City" -> Entity["City", {"Baltimore", "Maryland", "UnitedStates"}], "Wolfram Headquarters" -> Entity["City", {"Champaign", "Illinois", "UnitedStates"}]}]使用 VertexCoordinates 指定顶点的位置：
GeoGraphPlot[{Entity["City", {"Rome", "Lazio", "Italy"}]Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Milan", "Lombardy", "Italy"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Frankfurt", "Hesse", "Germany"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Paris", "IleDeFrance", "France"}]Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Seville", "Seville", "Spain"}], Entity["City", {"Madrid", "Madrid", "Spain"}]Entity["City", {"Barcelona", "Barcelona", "Spain"}], "Norway Coastline"Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"Paris", "IleDeFrance", "France"}]"Norway Coastline"}, VertexCoordinates -> {"Norway Coastline" -> GeoPosition[{62.2, 5.4}]}]VertexLabels (2)
VertexLabelStyle (2)
GeoGraphPlot[IconizedObject[«Europe»], VertexLabels -> "Name", VertexLabelStyle -> Directive[Red, Italic, 8.5]]GeoGraphPlot[IconizedObject[«Europe»], VertexLabels -> "Name", VertexLabelStyle -> {Entity["City", {"Paris", "IleDeFrance", "France"}] -> Directive[Red, Italic, 12]}]VertexShape (1)
VertexSize (1)
应用 (6)
一家公司计划为芝加哥近郊城镇建立光纤网络. 它的光纤只有沿着某些路线才拥有通行权. 其中一些路线可能更贵. 找到连接每个城镇且总成本最低的连接路线子图：
g = [image];GeoGraphPlot[g]fibernetwork = FindSpanningTree[g];GeoGraphPlot[fibernetwork]GeoGraphPlot[Thread[Entity["City", {"Chicago", "Illinois", "UnitedStates"}] -> {Entity["City", {"Accra", "GreaterAccra", "Ghana"}], Entity["City", {"Amman", "Amman", "Jordan"}], Entity["City", {"Athens", "Attiki", "Greece"}], Entity["City", {"Belgrade", "CentralSerbia", "Serbia"}], Entity["City", {"Birmingham", "Birmingham", "UnitedKingdom"}], Entity["City", {"Bogota", "DistritoCapital", "Colombia"}], Entity["City", {"Pusan", "PusanGwangyoksi", "SouthKorea"}], Entity["City", {"Casablanca", "GrandCasablanca", "Morocco"}], Entity["City", {"Delhi", "Delhi", "India"}], Entity["City", {"Durban", "KwaZuluNatal", "SouthAfrica"}], Entity["City", {"Galway", "Galway", "Ireland"}], Entity["City", {"Goteborg", "VastraGotaland", "Sweden"}], Entity["City", {"Hamburg", "Hamburg", "Germany"}], Entity["City", {"Kiev", "Kiev", "Ukraine"}], Entity["City", {"Lahore", "Punjab", "Pakistan"}], Entity["City", {"Luzern", "Luzern", "Switzerland"}], Entity["City", {"MexicoCity", "DistritoFederal", "Mexico"}], Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Moscow", "Moscow", "Russia"}], Entity["City", {"Osaka", "Osaka", "Japan"}], Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"PetahTiqwa", "Hamerkaz", "Israel"}], Entity["City", {"Prague", "Prague", "CzechRepublic"}], Entity["City", {"Shanghai", "Shanghai", "China"}], Entity["City", {"Shenyang", "Liaoning", "China"}], Entity["City", {"Sydney", "NewSouthWales", "Australia"}], Entity["City", {"Toronto", "Ontario", "Canada"}], Entity["City", {"Vilnius", "Vilniaus", "Lithuania"}], Entity["City", {"Warsaw", "Mazowieckie", "Poland"}]}], GeoCenter -> Entity["City", {"Chicago", "Illinois", "UnitedStates"}], GraphLayout -> "Geodesic"]GeoGraphPlot[Flatten[Thread[# -> #["ImportPartners"]]& /@ EntityList[EntityClass["Country", "NATO"]]]]GeoGraphPlot[Flatten[Thread[# -> #["ImportPartners"]]& /@ EntityList[EntityClass["Country", "GroupOf7"]]]]cities = EntityList[["50 largest US cities"]]nf = Nearest[cities, DistanceFunction -> GeoDistance]network = DeleteDuplicates[Flatten[Table[Sort /@ Thread[cityRest[nf[city, 5]]], {city, cities}]]];GeoGraphPlot[network, VertexStyle -> Red, EdgeStyle -> Directive[Thickness[0.006], Orange], GeoBackground -> "StreetMapNoLabels"]countries = CountryData[];majorLanguages[country_] := Cases[country["LanguagesFractions"], HoldPattern[lang_ -> frac_ /; frac * country["Population"] > Quantity[1000000, "People"]] :> lang]originalCountry[lang_] := originalCountry[lang] = lang[EntityProperty["Language", "PrimaryOrigin"]]majorCountries = Select[countries, #["Population"] > Quantity[10000000, "People"]&];如果说某种语言的人在一个国家/地区超过 100 万，则从该语言的起源地创建一条边：
graph = Flatten[Table[Table[If[originalCountry[lang] === country, Nothing, Tooltip[originalCountry[lang] -> country, lang]], {lang, majorLanguages[country]}], {country, majorCountries}]];GeoGraphPlot[graph, GeoProjection -> "LambertAzimuthal", VertexLabels -> Placed[Automatic, Tooltip], GeoRange -> "World"]powernetwork = [image];GeoGraphPlot[powernetwork, VertexStyle -> Red, EdgeStyle -> Directive[Thickness[0.006], Orange]]属性和关系 (10)
对非地理学网络使用 GraphPlot：
GraphPlot[{4 -> 6, 2 -> 9, 2 -> 6, 2 -> 3, 1 -> 6, 5 -> 1, 7 -> 1, 7 -> 5, 9 -> 7, 3 -> 4, 2 -> 8, 2 -> 5, 1 -> 1, 4 -> 5, 8 -> 8, 5 -> 3, 6 -> 5, 1 -> 7, 10 -> 9, 6 -> 7}]用 GeoGraphValuePlot 显示地理网络上的值：
GeoGraphValuePlot[{{Entity["City", {"Rome", "Lazio", "Italy"}], Entity["City", {"Milan", "Lombardy", "Italy"}], 2.2}, {Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Paris", "IleDeFrance", "France"}], 2.4}, {Entity["City", {"Milan", "Lombardy", "Italy"}], Entity["City", {"Frankfurt", "Hesse", "Germany"}], 5}, {Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Frankfurt", "Hesse", "Germany"}], 3.2}, {Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"Madrid", "Madrid", "Spain"}], 4.3}, {Entity["City", {"Paris", "IleDeFrance", "France"}], Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], 3.3}, {Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Seville", "Seville", "Spain"}], 3.6}, {Entity["City", {"Madrid", "Madrid", "Spain"}], Entity["City", {"Barcelona", "Barcelona", "Spain"}], 1.8}}]使用 GeoListPlot 显示地理位置及实体的位置：
GeoListPlot[RandomGeoPosition[100]]使用 GeoBubbleChart 可将值显示为缩放气泡的形式：
states = EntityValue[EntityClass["AdministrativeDivision", "USStatesAllStates"], EntityFunction[e, {e, e["Population"]}]];GeoBubbleChart[states]使用 GeoRegionValuePlot 可将值显示为有色区域：
states = EntityValue[EntityClass["AdministrativeDivision", "USStatesAllStates"], EntityFunction[e, {e, e["Population"]}]];GeoRegionValuePlot[states]使用 GeoHistogram 将位置合并成箱：
pts = RandomGeoPosition[["US"], 500];GeoHistogram[pts, "AdministrativeDivision1"]使用 GeoSmoothHistogram 从地点中生成平滑密度：
pts = RandomGeoPosition[["US"], 500];GeoSmoothHistogram[pts]对向量场使用 GeoVectorPlot 和 GeoStreamPlot：
vecs = GeoVectorENU[GeoPosition[{{41.72044646550199, -97.44319222116899},
{46.35277665685431, -111.4315456426783}, {38.869826216010324, -106.10009940692615},
{31.787574043650135, -96.48279364395346}, {39.852469082609225, -93.15525687634982},
... 25157985637201197},
{0.4901023278760972, 0.9891989981823661}, {0.8720928861484118, 0.30133102014639235},
{-0.9277032216653329, -0.5872478295734753}, {0.947583037831254, -0.6748021812104095},
{-0.6838608673381241, 0.12312620699389898}}];{GeoVectorPlot[vecs], GeoStreamPlot[vecs]}使用 GeoContourPlot 在地图上绘制等高线：
GeoContourPlot[IconizedObject[«locs»] -> IconizedObject[«vals»]]使用 GeoDensityPlot 为地图添加平滑阴影：
GeoDensityPlot[IconizedObject[«locs»] -> IconizedObject[«vals»]]
Wolfram Research (2021)，GeoGraphPlot，Wolfram 语言函数，https://reference.wolfram.com/language/ref/GeoGraphPlot.html.
文本
Wolfram Research (2021)，GeoGraphPlot，Wolfram 语言函数，https://reference.wolfram.com/language/ref/GeoGraphPlot.html.
CMS
Wolfram 语言. 2021. "GeoGraphPlot." Wolfram 语言与系统参考资料中心. Wolfram Research. https://reference.wolfram.com/language/ref/GeoGraphPlot.html.
APA
Wolfram 语言. (2021). GeoGraphPlot. Wolfram 语言与系统参考资料中心. 追溯自 https://reference.wolfram.com/language/ref/GeoGraphPlot.html 年