Values on x-Axes

user_13544230 0
Viewed 38

How to place certain values on the x-axis below and other values above in PlotRange. Below must be the calculated values and above values in the range 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]]]

[enter image description here]

wolfram-mathematica plot
1 Answers

You could use Frame

Marker = HoldForm[Log[{97000., 66000., 45000., 30000.}]];

ListLinePlot[ReleaseHold[Marker], 
 FrameTicks -> {{Automatic, Automatic},
   {{{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."}},
    {{1, "0.25"}, {2, "0.5"}, {3, "0.75"}, {4, "1"}}}},
 Mesh -> All, MeshStyle -> {PointSize[0.03], Red},
 FrameLabel -> {"Rf", "Ln"}, LabelStyle -> Directive[Bold, 12],
 PlotLabel -> Framed[Marker, FrameStyle -> None],
 AxesOrigin -> {.7, 9.8},
 FrameStyle -> Directive[RGBColor[0.00613, 0.444, 0.],
   AbsoluteThickness[1.5]],
 Frame -> {{True, False}, {True, True}}]

enter image description here

user_8796010
Related