MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: DateListBarChart / Ticks in BarChart

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104566] Re: DateListBarChart / Ticks in BarChart
  • From: Luci Ellis <luci at verbeia.com>
  • Date: Wed, 4 Nov 2009 01:33:47 -0500 (EST)
  • References: <hcjisk$jld$1@smc.vnet.net> <hconks$1e7$1@smc.vnet.net>

First, thanks to Armand/Mike for his suggestion. It gets me a long way
to what I need. The other suggestions to use add-on products are
well-taken, but aren't likely to be accepted by my employer. Thanks
anyway.

On 2009-11-03 18:55:08 +1100, Armand Tamzarian
<mike.honeychurch at gmail.com> said:

> On Nov 1, 3:03 am, Luci Ellis <l... at verbeia.com> wrote:
>>
>> Can anyone offer any guidance on placement of ticks in BarChart, and
>> combining them with DateListPlots? Or, failing that, making
>> DateListPlots look like BarCharts?
>>
>> Thanks in advance,
>> Luci
>
> This requiring some further work but seems to do what you want.
>
> Make some sample data ...I guess it might come in this sort of format
>
> someData = Flatten[Table[{ToString[i] <> "q" <> ToString[j], RandomRe=
al
> [{-10, 10}]}, {i, 1999, 2008}, {j, 1, 4}], 1];
>
> You will be able to convert it to this format easily enough:
>
> data1 = Flatten[Table[{{i, j}, RandomReal[{-5, 5}]}, {i, 1999, 2008},
> {j, 1, 4}], 1];
> data2 = Flatten[Table[{{i, j*3}, RandomReal[{8, 20}]}, {i, 1999,
> 2008}, {j, 1, 4}],1];
>
> (* need to tweek this for leap years *)

Create the daily dates as a flat list, then use GatherBy?

>
> dates[{year_, quarter_}] := Which[
>   quarter == 1, DatePlus[{year, 1, 0}, #] & /@ Range[90],
>   quarter == 2, DatePlus[{year, 4, 0}, #] & /@ Range[91],
>   quarter == 3, DatePlus[{year, 7, 0}, #] & /@ Range[92],
>   quarter == 4, DatePlus[{year, 10, 0}, #] & /@ Range[92]
>   ];
>
> barData = Thread[{dates[#[[1]]], #[[2]]}] & /@ data1;
>
> p1 = DateListPlot[barData, Joined -> False, Filling -> 0];
> p1 = DeleteCases[p1, _Point, \[Infinity]];
> p2 = DateListPlot[data2, Joined -> True, PlotStyle -> Thick];
>
> Show[p2, p1, PlotRange -> All]

This is a very helpful clue, thanks. In fact, as long as you are only
exporting graphics to PDF, GIF, PNG etc, there is no need to
DeleteCases the Points. This works:

DateListPlot[{barData1, barData1a}, PlotStyle -> Directive[Opacity[0]],
=E2=80=A8 Filling -> {1 -> {0, Blue}, 2 -> {{1}, Red}}]
(try this for barData1 = Flatten[Most /@ barData, 1]; and
data1a = {0, 1.*Sign[#[[2]]]} + # & /@ data1
barData1a = Flatten[Most /@ (Thread[{dates[#[[1]]], #[[2]]}] & /@
data1a), 1]; )

It's not even necessary to create two plots and use Show.

But it is incredibly slow (creating daily data out of non-daily data),
and will only work for stacked bars (see below) not side by side bars,
unless one fakes the date positions for the second series.

i will keep working on it. In the meantime, any other suggestions are
greatly appreciated.

> I don't know how to get the year labels centred. Maybe someone else
> can offer a suggestion.

This bit I already have working -- just not TickPlacement in BarChart.
It involves AdjustmentBox constructs like this.

RBADateTicks[min_, max_, opts___Rule] :==E2=80=A8 Module[{seq},=E2=80=A8=
 
With[{dateformat = DateLabelFormat /. {opts} /. Options[RBADateTicks],=E2=
=80=A8
   datelabelspacing = DateLabelSpacing /. {opts} /.
Options[RBADateTicks],=E2=80=A8    vertshift = DateLabelVerticalShift /=
. {opts}
/. Options[RBADateTicks],=E2=80=A8    afac = With[{afacopt = DateLabe=
lOffset /.
{opts} /. Options[RBADateTicks]},=E2=80=A8       Switch[afacopt, Automati=
c, =E2=80=A8  
    AutoDateLabelOffset[max - min + 1], _?NumericQ, afacopt]]},=E2=80=A8 =
  seq
= If[datelabelspacing == Automatic, AutoDateLabel[max - min + 1], =E2=
=80=A8    
datelabelspacing];=E2=80=A8   Table[{{i, 1, 1}, =E2=80=A8     If[Mod[max =
- i, seq] ==
0, =E2=80=A8      DisplayForm[=E2=80=A8       AdjustmentBox[DateString[{i=
, 1, 1},
{dateformat}], =E2=80=A8        BoxBaselineShift -> 0.1, BoxMargins -> {{=
afac,
0}, {0, 0}}]], =E2=80=A8      ""], {0.015, 0}}, {i, Range[min, max]}]=E2=80=
=A8   ]]

where

AutoDateLabelOffset[num_Integer?Positive] := =E2=80=A8 Switch[num, 1, 3=
2, 2,
16, 3, 10.5,=E2=80=A8  4, 8.,=E2=80=A8  5, 6.8,=E2=80=A8  6, 5.2, 7, 4.7,=
 8, 4.0, 9, 3.7, 10,
3.5, 11, 3.25, 12, 2.9, 13, 2.65, 14, =E2=80=A8  2.35, 15, 2.3, 16, 2.15,=
 17,
2.05, 18, 2., 19, 1.9, 20, 1.8, _, 1.5]

and

AutoDateLabel[num_Integer?Positive] := =E2=80=A8 Piecewise[{{1, num < 6=
}, {2, 5
<= num <= 10}, {3, 10 < num <= 15}, {4, =E2=80=A8    15 < num < 20}=
, {5, 20 <=
num <= 45}, {10, num > 45}}, 5]=E2=80=A8



  • Prev by Date: Re: ForAll testing equality, and Limit evaluating wrong
  • Next by Date: Re: Re: dynamicmodule with f[x_] possible?
  • Previous by thread: Re: DateListBarChart / Ticks in BarChart
  • Next by thread: Re: DateListBarChart / Ticks in BarChart