Message Boards

WOLFRAM COMMUNITY

12517 Views

7 Replies

3 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Graphics and Visualization Wolfram Language

Perform simple reformatting of the ticks in a plot?

Michael Stern

Posted 7 years ago

POSTED BY: Michael Stern

7 Replies

Sort By:

Alan Parson

Posted 3 years ago

POSTED BY: Alan Parson

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 7 years ago

Hmm, `AbsoluteOptions` gives useless result with `DateListPlot`. A workaround is to get the ticks from a `ListPlot` and to feed them to `DateListPlot`: data = {{{2017, 1, 1}, 1}, {{2017, 2, 1}, 2}}; nonDatePlot = ListPlot[data[[All, -1]]]; tks = Ticks /. AbsoluteOptions[nonDatePlot]; modifiedTks = tks[[2]] /. {x_Real, tk_Real, rest___} :> {x, Rationalize[tk/Pi, Pi/10000] Pi, rest}; DateListPlot[data, FrameTicks -> {{modifiedTks, Automatic}, Automatic}]

Hmm, AbsoluteOptions gives useless result with DateListPlot. A workaround is to get the ticks from a ListPlot and to feed them to DateListPlot:

data = {{{2017, 1, 1}, 1}, {{2017, 2, 1}, 2}};
nonDatePlot = ListPlot[data[[All, -1]]];
tks = Ticks /. AbsoluteOptions[nonDatePlot];
modifiedTks = 
  tks[[2]] /. {x_Real, tk_Real, rest___} :> {x, 
     Rationalize[tk/Pi, Pi/10000] Pi, rest};
DateListPlot[data, 
 FrameTicks -> {{modifiedTks, Automatic}, Automatic}]

POSTED BY: Gianluca Gorni

Sander Huisman

Sander Huisman, University of Twente

Posted 7 years ago

Manually specify the ticks: mydata=EventSeries@Table[{DatePlus[DateObject[{2010,1,1}],{x,"Month"}],10^6 RandomReal[{1,2}]},{x,0,20}]; rightticks=leftticks = {# 10^6,"$ "<>ToString[NumberForm[#,{\[Infinity],1}]]<>"MM"}&/@Range[1,2,0.1]; rightticks[[All,2]]=""; myplot=DateListPlot[mydata,FrameTicks->{{leftticks,rightticks},{Automatic,Automatic}}] Using FindDivisions you could automate the position of the ticks. Which is also what internally is used by the various plot functionalities...

Manually specify the ticks:

mydata=EventSeries@Table[{DatePlus[DateObject[{2010,1,1}],{x,"Month"}],10^6 RandomReal[{1,2}]},{x,0,20}];
rightticks=leftticks = {# 10^6,"$ "<>ToString[NumberForm[#,{\[Infinity],1}]]<>"MM"}&/@Range[1,2,0.1];
rightticks[[All,2]]="";
myplot=DateListPlot[mydata,FrameTicks->{{leftticks,rightticks},{Automatic,Automatic}}]

enter image description here

Using FindDivisions you could automate the position of the ticks. Which is also what internally is used by the various plot functionalities...

POSTED BY: Sander Huisman

Michael Stern

Posted 7 years ago

I generate a lot of these graphs with varying Y-axes so I would greatly prefer not to have to set the upper and lower bounds by hand. Is there some mechanism that lets Mathematica pick the placement but lets me pick the formatting?

POSTED BY: Michael Stern

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 7 years ago

You can intercept the automatically generated ticks and then tweak them, for example with a replacement rule. Something like this: myPlot = Plot[Sin[x], {x, 0, Pi}] tks = Ticks /. AbsoluteOptions[myPlot, Ticks]; Show[myPlot, Ticks -> {tks[[1]] /. {x_Real, tk_Real, rest___} :> {x, Rationalize[tk/Pi, Pi/10000] Pi, rest}, tks[[2]]}]