绘制xy轴反向的图像

这里讲一下如何绘制xy轴反向的图像，我们正常的时候绘图都是横轴是x轴，纵轴是y轴，但是有的时候我们总是需要将x和y轴的位置互换，下面就来说明一下如何来实现x和y轴的互换，画出标准的，可以用于论文写作的图像。

关于这里座标轴的绘制可以看之前的一篇文章： 绘制标准座标轴|mathematica绘图

原理及代码实现

其实原理是很简单的，就是把使用绘制参数图，绘制如{f[x],x}的参数图即可，我们可以看一下下面的mathematica代码。

比如在这里，我们要绘制2x+3+Sin(x)的图像，我们把正常的和反响的都画出，来进行对比，代码如下：

f[x_] := 2 x + 3 + Sin[x];
Plot[f[x], {x, -3, 3},
PlotStyle -> Directive[AbsoluteThickness[1.975`]],
AxesStyle -> Arrowheads[{0.`, 0.03`}],
AxesOrigin -> {0, 0},
AxesLabel -> {Style[Row[{"\n", x}], 14, FontFamily -> "Times"],
Style[Row[{y, "\t"}], 14, FontFamily -> "Times"]}
]

ParametricPlot[{f[x], x}, {x, -3, 3},
PlotStyle -> Directive[AbsoluteThickness[1.975`]],
AxesStyle -> Arrowheads[{0.`, 0.03`}],
AxesOrigin -> {0, 0},
AxesLabel -> {Style[Row[{"\n", y}], 14, FontFamily -> "Times"],
Style[Row[{x, "\t"}], 14, FontFamily -> "Times"]}]

可以看到通过上面的代码我们就实现了x和y轴交换后的画图。