使用Show [p1，p2，PlotRange - ＆gt;的非均匀轴刻度。全部]在Mathematica 8

Question

我正在尝试使用Mathematica 8和Show [p1，p2，PlotRange - ＆gt;在同一图中显示一系列图表。全部]，但y轴标签（范围从log 0.5到log 1.5）看起来不均匀。如何将轴标签校正为均匀？

我已经包含了两个图（dataPlot3和dataPlot4）的示例，但我试图在同一图中显示更多。

Answer 1

Show使用指定的第一个图片中的选项，包括PlotRange和Ticks。您可以在创建包含两个数据集范围的第一个图中指定显式PlotRange，并生成适当的刻度以覆盖它：

d1 = Table[x^2, {x, 50}];
d2 = Table[50 + x^3, {x, 50}];

p1 = ListLogLogPlot[d1, PlotStyle -> Red, PlotRange -> {1, 200000}]

p2 = ListLogLogPlot[d2, PlotStyle -> Black]

Show[p1, p2]