在Mathematica Plot中强制x轴与y轴对齐

Question

在Mathematica中,当我有时候绘制东西时,我并不总是让x轴与绘图的确切底部对齐.有什么方法可以强迫它一直这样做吗？

以下是我所说的一个例子:http://i.imgur.com/3lcWd.png

我希望x轴与底部的零刻度标记方式完美对齐,而不是在y轴的中间,就像在该图像中一样.

我能以任何方式完成这项任务吗

Answer 1

使用该选项 AxesOrigin -> {0,0}

Answer 2

以下将在左侧和底部绘制轴,而不管坐标值如何:

aPlot[f_, var_, opts : OptionsPattern[]] :=
 Plot[f, var,
  AxesOrigin -> 
   First /@ (# /. AbsoluteOptions[Plot[f, var, opts], #] &@PlotRange), opts]

aPlot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10}, Filling -> Axis]

aPlot[Sin[x], {x, 0, 2 Pi}]