Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

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

Search the Archive

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



  • Prev by Date: Re: Mathematica and Lisp
  • Next by Date: Re: Undo/Redo
  • Previous by thread: Re: Help with "recession bar" graph
  • Next by thread: Re: Help with "recession bar" graph