Graph 使用Mathematica更改地理地图中每个磁盘的颜色
我想改变泡泡的颜色。我已经创建了包含颜色而不是值的变量Graph 使用Mathematica更改地理地图中每个磁盘的颜色,graph,wolfram-mathematica,Graph,Wolfram Mathematica,我想改变泡泡的颜色。我已经创建了包含颜色而不是值的变量 colorME = ReplaceAll[GhanaMalariaData[[All, 3]], monthRule] 但我不知道如何在图表中表示它 v = ghanaMalariaPositive/ Max[Sort[ghanaMalariaPositive]] * 50; y = MapThread[List, {latLog, v}]; x =MapThread[ GeoDisk[#1, Quantity[#2,"Kilomete
colorME = ReplaceAll[GhanaMalariaData[[All, 3]], monthRule]
但我不知道如何在图表中表示它
v = ghanaMalariaPositive/ Max[Sort[ghanaMalariaPositive]] * 50;
y = MapThread[List, {latLog, v}];
x =MapThread[ GeoDisk[#1, Quantity[#2,"Kilometers"]]&, {latLog, v}];
GeoGraphics[{Polygon[Ghana (country)], {Red,x}}, Frame->True, GeoRange->Ghana (country)]
这里介绍如何操作:
我们有一年中的12个月,我们想看看疟疾的位置
随着一年中的时间变化
colorRule = RandomColor[12]
monthRule = Table[Rule[i, colorRule[[i]]], {i, 12}]
colorME = ReplaceAll[data[[All, 3]], monthRule]
coloring = Flatten[MapThread[List[#1, #2] &, {colorME, x}]]
GeoGraphics[{Polygon[Ghana (country)],coloring},Frame->True,GeoRange->Ghana (country)]