wolfram-mathematica - 在 ListLogLogPlot 的刻度标签中强制使用科学记数法

Question

我正在尝试在 ListLogLogPlot 上自定义格式刻度标签。通过搜索 Mathgroup 文件，看起来弄乱刻度标签的常用方法是使用 AbsoluteOptions 提取它们。 ，使用自定义格式运行替换规则，然后使用 Ticks->{...} 将它们显式提供给绘图函数选项。但是，以下不适用于 ListLogLogPlot:

foo = ListLogLogPlot[Range[20]^3, Frame -> True];
ticks=(FrameTicks /. AbsoluteOptions[foo, FrameTicks])

关于如何处理这个问题的任何想法？...

编辑:这里有很多好的答案!接受巫师先生的建议，因为它被证明是解决手头眼前问题的最简洁的方法，但我认为自己将来会使用其他建议的方法。

Answer 1

可以使用替换来直接弄乱标签，绕过 Option/AbsoluteOptions :

ListLogLogPlot[Range[20]^3, Frame -> True] /.
   (FrameTicks -> x_) :>
      (FrameTicks -> (x /. {a_?NumericQ, b_Integer, s___} :>
         {a, Superscript[10, Log10@b], s} ))

感谢 Alexey Popkov这现在得到了改善并且不那么脆弱。