Re: Help with "recession bar" graph
- To: mathgroup at smc.vnet.net
- Subject: [mg129734] Re: Help with "recession bar" graph
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Sat, 9 Feb 2013 00:44:11 -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>
data = { 38.396359394355414`, 72.27272309523107`, 89.29538328240793`, 72.10010639242938`, 82.58607698201098`, 18.6576446975194`, 33.27870983668225`, 21.4169865528564`, 27.143317794267958`, 56.831020645157224`, 97.91895556654552`, 53.699909198741835`, 62.45884842291329`, 43.57174038250221`, 5.572069539912178`, 47.64601720765782`, 57.36520060575606`, 11.616476185686125`, 53.621120873396194`, 86.51670206163143`, 46.158001732049314`, 91.79901697376656`, 56.56864196802621`, 68.80447171646065`, 69.71270226145879`, 9.193667545986898`, 12.322285539970679`, 84.54474541006726`, 37.46708245474912`, 70.19095794556748`, 21.368052894967576`, 95.70714721558335`, 19.184901239515995`, 12.369028572198587`, 97.66742717262244`, 64.70934352032668`, 1.1657357274066413`, 57.74269869413277`, 58.529638656649155`, 34.40274725318369`, 52.38021809465195`, 64.42731199035626`, 54.74507564841295`, 32.199884547032894`, 64.85420465012712`, 26.538659912812435`, 43.037739816388466`, 25.366295485189113`, 7.604466054852992`, 92.16216075731677`}; Show[ RegionPlot[ {6 <= x <= 13, 19 <= x <= 25, 39 <= x <= 46}, {x, 0, 50}, {y, 0, 100}, BoundaryStyle -> None], ListLinePlot[data]] Show[ RegionPlot[ {6 <= x <= 13 || 19 <= x <= 25 || 39 <= x <= 46}, {x, 0, 50}, {y, 0, 100}, BoundaryStyle -> None], ListLinePlot[data]] Bob Hanlon On Fri, Feb 8, 2013 at 5:12 AM, Alan <alan.isaac at gmail.com> wrote: > I'm looking for the same thing: vertical shaded regions behind a plot. Any ideas? >