Wolfram mathematica '；定制&x27；Mathematica中的CountryData条目

我有以下数据集—可能没有为此任务正确格式化—它引用了我希望在地图上指示的值，将地图用作一种图形：

Dat2Countries = {{"Argentina", 32.63969016}, {"Australia", 
   65.6986192}, {"Bolivia", 13.19444444}, {"Brazil", 
   27.55511788}, {"Canada", 66.49547068}, {"Chile", 
   27.14539357}, {"China", 17.94765891}, {"Czech Republic", 
   58.45414706}, {"Egypt", 18.07371757}, {"El Salvador", 
   23.94366197}, {"France", 63.86621123}, {"Germany", 
   58.68321579}, {"Ghana", 21.39232133}, {"Greece", 
   57.06734961}, {"Indonesia", 17.46457699}, {"Israel", 
   90.84112638}, {"Italy", 57.48221752}, {"Japan", 
   54.9704008}, {"Jordan", 22.93290207}, {"Kenya", 
   23.60066645}, {"Lebanon", 19.74186819}, {"Malaysia", 
   16.5620438}, {"Mexico", 31.72258783}, {"Nigeria", 
   24.38177507}, {"Pakistan" , 20.4777854}, {"Poland", 
   60.54096673}, {"Russia", 28.77358356}, {"Senegal", 
   21.91780822}, {"South Africa", 19.03936205}, {"South Korea", 
   53.20728589}, {"Spain", 58.12532901}, {"Tunisia", 
   24.67799831}, {"Turkey", 45.59516911}, {"Uganda", 
   19.08127926}, {"United Kingdom", 66.5450176}, {"Venezuela", 
   14.66666667}}

我想在地图上用这样的东西“覆盖”这个索引（对不起，我知道这很不雅观）：

Graphics[{If[MemberQ[Map[First，Dat2Countries，{1}]，#]，
如果[Map[Last，Dat2Countries，{1}]<20，
RGBColor[0.0352941,0.254902,0.352941]，
如果[Map[Last，Dat2Countries，{1}]<40&&
Map[Last，Dat2Countries，{1}]>=20，
RGBColor[0.305882,0.498039,0.592157]，
如果[Map[Last，Dat2Countries，{1}]<60&&
Map[最后，Dat2Countries，{1}]>=40，
RGB颜色[0.0705882,0.568627,0.835294]，
如果[Map[Last，Dat2Countries，{1}]<80&&
Map[Last，Dat2Countries，{1}]>=60，
RGB颜色[0.372549,0.776471,0.952941]，
如果[Map[Last，Dat2Countries，{1}]<100&&
Map[Last，Dat2Countries，{1}]>=80，
RGB颜色[0.368627,0.694118,0.701961]，浅棕色，
CountryData[#，，“示意图多边形”]}&/@CountryData[]]

但我对CountryData软件包不太熟悉——是否可以使用该软件包来指示地图上没有内置在软件包中的值

谢谢，

---

arebearit

使用您的数据列表

Dat2Countries

如给定，地图可以这样绘制：-

colourfunction[country_String] := Module[{cases, value},
  Catch[
   cases = Cases[Dat2Countries, {country, _}]; 
   If[cases == {}, Throw[LightGray]];
   value = cases[[1, 2]]; 
   Which[
    value < 20, RGBColor[0.0352941, 0.254902, 0.352941], 
    value < 40, RGBColor[0.305882, 0.498039, 0.592157],
    value < 60, RGBColor[0.0705882, 0.568627, 0.835294],
    value < 80, RGBColor[0.372549, 0.776471, 0.952941],
    value < 100, RGBColor[0.368627, 0.694118, 0.701961],
    True, LightBrown]]]

Graphics[{colourfunction[CountryData[#, "Name"]],
    CountryData[#, "SchematicPolygon"]} & /@ CountryData[]]

colorFunction[country_String]：=模块[{cases，value}，
抓住[
案例=案例[Dat2Countries，{country，}]；
如果[cases=={}，抛出[LightGray]]；
值=案例[[1,2]]；
哪个[
值<20，RGB颜色[0.0352941,0.254902,0.352941]，
值<40，RGB颜色[0.305882,0.498039,0.592157]，
值<60，RGB颜色[0.0705882,0.568627,0.835294]，
值<80，RGB颜色[0.372549,0.776471,0.952941]，
值<100，RGB颜色[0.368627,0.694118,0.701961]，
是的，浅棕色]]]
图形[{colorFunction[CountryData[#，“Name”]]，
CountryData[#，，“示意图多边形”]}&/@CountryData[]]

colourfunction[country_String] := Module[{cases, value},
  Catch[
   cases = Cases[Dat2Countries, {country, _}]; 
   If[cases == {}, Throw[LightGray]];
   value = cases[[1, 2]]; 
   Which[
    value < 20, RGBColor[0.0352941, 0.254902, 0.352941], 
    value < 40, RGBColor[0.305882, 0.498039, 0.592157],
    value < 60, RGBColor[0.0705882, 0.568627, 0.835294],
    value < 80, RGBColor[0.372549, 0.776471, 0.952941],
    value < 100, RGBColor[0.368627, 0.694118, 0.701961],
    True, LightBrown]]]

Graphics[{colourfunction[CountryData[#, "Name"]],
    CountryData[#, "SchematicPolygon"]} & /@ CountryData[]]