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

Question

为了学习更多Mathematica,我试图重现这个日志(日志)图上的刻度线:

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

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,没有任何内置含义的通用排版形式,是你的朋友.

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}]
       }
   ]