Re: Help with "recession bar" graph
- To: mathgroup at smc.vnet.net
- Subject: [mg129732] Re: Help with "recession bar" graph
- From: JZ <zirbel at gmail.com>
- Date: Sat, 9 Feb 2013 00:43:30 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <bvd8kg$5ca$1@smc.vnet.net>
Show[
{DateListPlot[yourData[[All, {1, 2}]]],
Graphics[
{Thick,
Green,
Rectangle[
{AbsoluteTime[{2013, 1, 21}], 90},
{AbsoluteTime[{2013, 1, 31}], 100}
]
}
],
DateListPlot[yourData[[All, {1, 2}]]
]
}
]
On Friday, January 30, 2004 1:34:59 AM UTC-8, Mark Coleman wrote:
> Hi,
>
> I was wondering if someone might assist me in the construction of a
> "recession bar" graph. This type of graph is often used in economics
> to depict interesting sub-periods on a time series graph. .For this
> type of graph, the user would specify one or more intervals of
> interest. Each interval would be depicted by a shaded vertical column,
> the width of which spans the regions of interest (image a series of
> possibly irregularly spaced vertical grid lines, with shading in
> between). For an example, see
> http://www.cepr.org/data/eurocoin/recession/
>
> I've been trying to figure out a way to get gridlines to do this in
> LIstPlot. Any ideas?
>
> Thanks,
>
> Mark