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?
>