Skip to main content
3 of 4
added 735 characters in body
Mr.Wizard
  • 273.1k
  • 34
  • 595
  • 1.4k

According to the comment below your question I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. It may not work in earlier versions.


Adapting the code I used for How do I make a log plot where the plot is logarithmic in the distance from the X-Axis (including negative values)? you can arbitrarily zoom the zero region with:

logify[_][x_ /; x == 0] := 0
logify[off_][x_] := Sign[x] Max[0, (off + Re@Log@x)/off]

inverse[off_][x_] := Sign[x] Exp[(Abs[x] - 1) off]

logscale[n_] := {logify[n], inverse[n]}

Examples:

ListLinePlot[llvaluefull, ScalingFunctions -> {logscale[1], Identity}]

enter image description here

With logscale[7]:

enter image description here

With logscale[22]:

enter image description here

Mr.Wizard
  • 273.1k
  • 34
  • 595
  • 1.4k