Re: DateListBarChart / Ticks in BarChart
- To: mathgroup at smc.vnet.net
- Subject: [mg104628] Re: DateListBarChart / Ticks in BarChart
- From: Luci Ellis <luci at verbeia.com>
- Date: Thu, 5 Nov 2009 03:50:22 -0500 (EST)
- References: <hcjisk$jld$1@smc.vnet.net> <hconks$1e7$1@smc.vnet.net> <hcr79i$8cr$1@smc.vnet.net>
An update:
This seems to work nicely in DateListPlot:
Epilog -> ({ Blue, =E2=80=A8 Rectangle[Offset[{-.2, 0}, {#[[1]], 0}],
Offset[{1.1, 0}, #]] & /@ =E2=80=A8 data]})
(where the data are in the form {{1999,12,1},number}..} )
The exact amount of offset depends on the number of bars, but this is
not a big issue.
Stacked bars will need MapThread or something, presumably.
This solution also renders much faster than Mike's.
I hope it is useful to others.
Regards,
Luci
On 2009-11-04 17:34:26 +1100, Luci Ellis <luci at verbeia.com> said:
> 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], RandomReal
>> [{-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 = DateLabelVertica=
lShift /=
> . {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, BoxMargi=
ns -> {{=
> afac,
> 0}, {0, 0}}]], =E2=80=A8 ""], {0.015, 0}}, {i, Range[min, ma=
x]}]=E2=80=
> =A8 ]]
>
> where
>
> AutoDateLabelOffset[num_Integer?Positive] := =E2=80=A8 Switch[n=
um, 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, 1=
6, 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 < n=
um < 20}=
> , {5, 20 <=
> num <= 45}, {10, num > 45}}, 5]=E2=80=A8