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

Re: Plotting stacked lineplots

• To: mathgroup at smc.vnet.net
• Subject: [mg122533] Re: Plotting stacked lineplots
• From: Armand Tamzarian <mike.honeychurch at gmail.com>
• Date: Mon, 31 Oct 2011 06:51:07 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <j8j5ef$f7l$1@smc.vnet.net>

On Oct 30, 8:29 pm, Deep <deepankar.sha... at gmail.com> wrote:
> Is it possible to use mathematica to plot stacked lineplots as shown
> athttp://www-958.ibm.com/software/data/cognos/manyeyes/page/Stack_Graph...
> ?
>
> Regards,
> Deepankar

Yes.

Suppose you have say 6 lists of date list data, and that each data set
has identical dates

data = {data1, data2, data3, data4, data5, data6};

the values at each date are data[[All, All, 2]]

so you can make a cumulative set of values

newData = data;
newData[[All, All, 2]] = Transpose[MapThread[Accumulate[{#1, ##2}] &,
data[[All, All, 2]]]]

and once you have your new data you can plot it

range = Range[0, Length[data]];

DateListPlot[newData, Joined -> True,
 Filling -> (MapThread[#2 -> {{#1}, ColorData[3, #2]} &, {Most[range],
Rest[range]}] /. {0} -> Bottom)
 ]

note that the filling might need some tweeking.

Mike