如何在Mathematica PlotRange中上下放置X轴计算值与0-1范围值

需求：使用ListLinePlot绘图时，在PlotRange范围内，X轴下方显示计算值，上方显示0-1范围的数值。

代码示例 #

ListLinePlot[
 Marker = Log[{97000., 66000., 45000., 30000.}], 
 Ticks -> {{{1, "0.12"}, {2, "0.21"}, {3, "0.38"},
    {4, "0.55"}, {5, ".75"}, {5, "0.7"}, {6, "0.8"},
    {7, "0.9"}, {8, "1."}}, Automatic, {0, 1}},
 Mesh -> All, MeshStyle -> {PointSize[0.03], Red},
 AxesLabel -> {"Rf", "Ln"}, LabelStyle -> Directive[Bold, 12],
 PlotLabel -> HoldForm[Marker], AxesOrigin -> {.7, 9.8}, 
 AxesStyle -> Directive[RGBColor[0.00613, 0.444, 0.],
   AbsoluteThickness[1.5]]]

对应效果图 #

内容的提问来源于stack exchange，提问作者Ion Ganea