I'm puzzled by drastic truncation of y-axis in DateListLogPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg115326] I'm puzzled by drastic truncation of y-axis in DateListLogPlot
- From: James Stein <mathgroup at stein.org>
- Date: Fri, 7 Jan 2011 04:13:02 -0500 (EST)
I ran into some curious behavior I can't explain. I have two rather benign
lists of numbers, of equal length. When either is plotted alone, all goes as
expected; and when they are plotted together, all goes *almost* as
expected. Dropping the last two or more values makes the plotting normal,
but dropping only one, or none, the y axis extends up only to 5 (instead of
to 20); and the dropped values are not near the extreme values.
If you copy the below into a cell and evaluate it, the gist of what I've
said above will, I hope, be clear. Have I done something stupid?
(* d is a list of dates; a and b are data; we combine 'd'
with a and b to form two lists for DateListLogPlot: *)
d={{2007,8,31},{2007,9,28},{2007,10,31},{2007,11,30},{2007,12,31},{2008,1,31},{2008,2,29},{2008,3,31},{2008,4,30},{2008,5,30},{2008,6,30},{2008,7,31},{2008,8,29},{2008,9,30},{2008,10,31},{2008,11,28},{2008,12,31},{2009,1,30},{2009,2,27},{2009,3,31},{2009,4,30},{2009,5,29},{2009,6,30},{2009,7,31},{2009,8,31},{2009,9,30},{2009,10,30},{2009,11,30},{2009,12,31},{2010,1,29},{2010,2,26},{2010,3,31},{2010,4,30},{2010,5,28},{2010,6,30},{2010,7,30},{2010,8,31},{2010,9,30},{2010,10,29},{2010,11,30},{2010,12,31},{2011,1,4}};
a={20.78,21.3,18.5,16.11,13.58,10.04,6.74,5.88,7.63,9.32,8.83,7.84,8.04,5.07,2.41,1.94,1.48,1.64,1.82,2.04,2.4,2.88,2.46,2.05,1.74,2.1,1.48,1.81,1.97,1.67,1.79,2.13,2.35,2.52,2.12,2.34,2.23,2.6,2.5,2.38,2.6,2.64};
b={1.43,1.45,1.48,1.50,1.52,1.55,1.57,1.59,1.62,1.64,1.67,1.696,1.712,1.75,1.77,1.80,1.83,1.86,1.88,1.91,1.94,1.97,2.00,2.03,2.1,2.10,2.13,2.16,2.20,2.23,2.26,2.30,2.33,2.36,2.40,2.44,2.48,2.52,2.55,2.59,2.63,2.64};
a=Transpose[{d,a}];
b=Transpose[{d,b}];
c={a,b};
(* a and b can be plotted alone; but when plotted together
we get drastic truncation at the top of the log axis: *)
DateListLogPlot[a,Joined->True,PlotLabel->"a alone"]
DateListLogPlot[b,Joined->True,PlotLabel->"b alone"]
DateListLogPlot[c,Joined->True,PlotLabel->"a and b"]
(* the drastic truncation occurs suddenly; if at least two rightmost values
are truncated, all is OK: *)
x=Length[d];
Table[DateListLogPlot[{Take[a,n],Take[b,n]},Joined->True,PlotLabel->ToString[n],ImageSize->Small],{n,x-3,x}]