wolfram-mathematica - 如何选择mathematica中绘图轴上显示的数字？

Question

我已经检查了 Mathematica 文档中心的所有示例和设置，但找不到关于如何选择将显示在轴上的数字的任何示例。

如何将绘图轴编号如 2,4,6,.. 更改为 PI,2PI,3PI,...？

Answer 1

Howard 已经在你想要标签的情况下给出了正确的答案 Pi , 2 Pi等要在值 Pi , 2 Pi等等。

有时您可能希望在特定值处使用替代刻度标签，而不重新缩放数据。

文档中的其他示例之一显示了如何:

Plot[Sin[x], {x, 0, 10}, 
 Ticks -> {{{Pi, 180 \[Degree]}, {2 Pi, 360 \[Degree]}, {3 Pi, 
  540 \[Degree]}}, {-1, 1}}]

我有一套用于格式化的小型自定义函数 Ticks我想要他们的方式。如果您刚刚开始，这可能是太多信息，但值得知道的是，您可以使用任何数字格式并根据需要将任何内容替换到您的刻度中。

myTickGrid[min_, max_, seg_, units_String, len_?NumericQ, 
  opts : OptionsPattern[]] := 
 With[{adj = OptionValue[UnitLabelShift], bls = OptionValue[BottomLabelShift]}, 
Table[{i, 
If[i == max, 
 DisplayForm[AdjustmentBox[Style[units, LineSpacing -> {0, 12}], 
   BoxBaselineShift ->  If[StringCount[units, "\n"] > 0, adj + 2, adj]]], 
 If[i == min, 
  DisplayForm@AdjustmentBox[Switch[i, _Integer, 
     NumberForm[i, DigitBlock -> 3, 
      NumberSeparator -> "\[ThinSpace]"], _, N[i]], 
    BoxBaselineShift -> bls], 
  Switch[i, _Integer, NumberForm[i, DigitBlock -> 3, 
    NumberSeparator -> "\[ThinSpace]"], _, N[i]]]], {len, 0}}, {i,
 If[Head[seg] === List, Union[{min, max}, seg], Range[min, max, seg]]}]]

并设置:

Options[myTickGrid] = {UnitLabelShift -> 1.3, BottomLabelShift -> 0}
SetOptions[myTickGrid, UnitLabelShift -> 1.3, BottomLabelShift -> 0]

例子:

Plot[Erfc[x], {x, -2, 2}, Frame -> True, 
 FrameTicks -> {myTickGrid[-2, 2, 1, "x", 0.02, UnitLabelShift -> 0], 
   myTickGrid[0, 2, {0.25, .5, 1, 1.8}, "Erfc(x)", 0.02]}]