logging - Mathematica 中对数图刻度线的指数形式

Question

为了学习更多 Mathematica，我试图重现此 log (log) plot 上的刻度线:

这是我能得到的最接近的:

LogLogPlot[Log[x!], {x, 1, 10^5}, PlotRange -> {{0, 10^5}, {10^-1, 10^6}}, Ticks -> {Table[10^i, {i, 0, 5}], Table[10^i, {i, -1, 6}]}]

问题
如何为适当的 n 值制作始终为 10^n 形式的刻度线？

Answer 1

Superscript ，没有任何内在含义的通用排版形式，是您的 friend 。

LogLogPlot[Log[x!], {x, 1, 10^5}, 
   PlotRange -> {{0, 10^5}, {10^-1, 10^6}}, 
   Ticks -> {
       Table[{10^i, Superscript[10, i]}, {i, 0, 5}], 
       Table[{10^i, Superscript[10, i]}, {i, -1, 6}]
       }
   ]