Mathematica数据处理(12)--图例

这一篇文章我们来讲一下图例

这个也算是前面美化留下来的一点小尾巴

图例 有专门的函数 PlotLegends

先来看一下一个简单的例子

data = Table[f, {f, {Sin[x], Cos[x], Sin[x + .5]}}, {x, 0, 3 Pi, 0.1}];
ListPlot[
 data,
 PlotLegends -> {Style[#, Italic] & /@ {"Sin[x]", "Cos[x]", 
     "Sin[x+0.5]"}}
 ]

得到下面的图

其实通过Placed可以将标签放在 上下左右 四个位置

ListPlot[
 data,
 PlotLegends -> {Style[#, Italic] & /@ {"Sin[x]", "Cos[x]", 
     "Sin[x+0.5]"}, Placed[{"Sin[x]", "Cos[x]", "Sin[x+0.5]"}, Top]}
 ]

就像下面的图这样

我们来看一个小例子

continents = CountryData["Continents"]

graphic = Graphics[
  MapIndexed[
   Tooltip[{ColorData[33, First[#2]],
      CountryData[#1, "SchematicPolygon"]}, #1] &,
   continents],
  ImageSize -> 500
  ]

将每个大洲的用不同颜色标注出来

然后把图例也画出来

legend = Column@
  MapIndexed[
   Legended[
     Graphics[{ColorData[33, First[#2]], Rectangle[]}, 
      ImageSize -> 30], #1] &, continents
   ]

得到下面的图

最后我们把两张图和在一起就可以了

Legended[graphic, legend]

就好啦

以上就把美化大概都讲完了，以后再有会慢慢补充的

2016/8/18

以上，所有