wolfram-mathematica - 在 Mathematica 中绘制图例

Question

如何在不使用 PlotLegends 包的情况下为函数绘制图例？

Answer 1

我也对让 PlotLegend 正常工作的困难感到失望。我编写了自己的简短函数来制作自己的自定义图形图例:

makePlotLegend[names_, markers_, origin_, markerSize_, fontSize_, font_] := 
  Join @@ Table[{
    Text[
      Style[names[[i]], FontSize -> fontSize, font], 
      Offset[
        {1.5*markerSize, -(i - 0.5) * Max[markerSize,fontSize] * 1.25},
        Scaled[origin]
      ],
      {-1, 0}
    ],
    Inset[
      Show[markers[[i]], ImageSize -> markerSize],
      Offset[
        {0.5*markerSize, -(i - 0.5) * Max[markerSize,fontSize] * 1.25},
        Scaled[origin]
      ],
      {0, 0}, 
      Background -> Directive[Opacity[0], White]
    ]
  },
  {i, 1, Length[names]}
];

它很灵活，但不是那么容易使用。 “名称”是要在图例中呈现的字符串列表； “markers”是一个与代表绘图标记或要渲染的图形的 Graphics 对象的“名称”具有相同长度的列表； “origin”是一个二元素列表，图例左上角的绝对水平和垂直位置； “markerSize”是将标记缩放到的点数； “fontSize”是字体大小； “font”是要使用的字体的名称。下面是一个例子:

Plot[{x, x^2}, {x, 0, 2}, PlotStyle -> {Blue, Red},
  Epilog -> makePlotLegend[
    {x, x^2},
    (Graphics[{#, Line[{{-1, 0}, {1, 0}}]}]) & /@ {Blue, Red},
    {0.9, 0.3},
    12,
    12,
    "Arial"
  ]
]