ListLinePlot filling for accumulated data

Question

I have 23 variables (energy production units) which take values for each hour of the day (energy dispatch table). Here is a PasteBin example of data. I am trying to represent the distribution of the total energy production for each hour. So far I have managed a pretty decent plot using :

accunits = Table[Accumulate[Transpose[allunits][[k]]], {k, Range[24]}];
ListLinePlot[Transpose[accunits], PlotRange -> All, AxesOrigin -> {1, 0}, ImageSize -> 500, Filling -> colors, PlotStyle -> Opacity[0]]

I still don't fully understand the proper use of FillingStyle with ColorData, so I created a list :

colors = Join[
 Table[i -> {{i + 1}, Yellow}, {i, 1, 3}],
 Table[i -> {{i + 1}, Orange}, {i, 4, 8}],
 Table[i -> {{i + 1}, Red}, {i, 9, 15}],
 Table[i -> {{i + 1}, Brown}, {i, 16, 20}],
 {21 -> {{22}, Blue}},
 {22 -> {{23}, Green}}];

Note the two last units are hydro and renewables, so the color scheme is different, while the 21 other units are thermal, so I tried to recreate a simplified TemperatureMap. This gives me the following image

My question(s) is:
How can I refine the plot so that the lines between colored regions don't appear so aliased and so that the space between the x-axis and the first unit is also colored? Also, how can I apply a temperature color scheme independent of the number of thermal units (the last two units are always hydro/blue and renewables/green)?

EDIT 1 : I found a solution for the coloring of the first unit, by adding a list of zeros as a first "unit" (I had to change the colors list to take into account this extra first "unit"):

accunits2 = Table[Accumulate[Transpose[Prepend[allunits2[[i, j]], Table[0, {p, Range[24]}]]][[k]]], {k,Range[24]}]

Cheers, E

Answer 1

To refine your plot so that the lines between colored regions don't appear so choppy you can resample your data by using Interpolation.

a = Interpolation /@ Transpose[accunits];
accunitsNew = Table[a[[i]][x], {x, 1, 24, .1}, {i, Length[a]}];
ListLinePlot[Transpose[accunitsNew], PlotRange -> All, 
    AxesOrigin -> {1, 0}, ImageSize -> 500, Filling -> colors, PlotStyle -> Opacity[0]]

To apply a temperature color scheme independent of the number of thermal units you can try this approach:

colors = Join[
    Table[i -> {{i + 1}, 
       ColorData["TemperatureMap"][(i - 1)/(# - 1)]}, {i, 
      1, #}], {# + 1 -> {{# + 2}, Blue}}, {# + 2 -> {{# + 3}, 
       Green}}] &;
linecolors = 
  Join[{White}, 
    Table[ColorData["TemperatureMap"][(i - 1)/(# - 1)], {i, 
      1, #}], {Blue, Green}] &;
ListLinePlot[Transpose[accunitsNew], PlotRange -> All, 
 AxesOrigin -> {1, 0}, ImageSize -> 500, 
 Filling -> colors[Length[Transpose[accunitsNew]] - 3], 
 PlotStyle -> linecolors[Length[Transpose[accunitsNew]] - 3]]

The number of colors will be always generated for the correct number of thermal units and the colors will always span the whole range of the temperature color scheme. I've also added the correct colors for the PlotStyle.

Answer 2

Plotting the 6 series corresponding to region boundaries (rather than 23 series) and replacing Opacity[0.] in PlotStyle by the filling color:

 boundaries = {3, 8, 15, 20, 22, 23};
 pltstyles = {Yellow, Orange, Red, Brown, Blue, Green};
 ListLinePlot[Accumulate[allunits2][[boundaries]],
 PlotStyle -> pltstyles,
 Filling -> ({# -> {{# - 1}, pltstyles[[#]]}} & /@ Range[6, 1, -1] /.    
  Rule[1, {{0}, col_}] :> Rule[1, {Axis, col}]),
 PlotRange -> All, AxesOrigin -> {1, 0},   ImageSize -> 600] 

or

 Show[ListLinePlot[Accumulate[allunits2][[boundaries[[#]]]],
 PlotStyle -> pltstyles[[#]],
 Filling -> Axis, FillingStyle -> pltstyles[[#]],
 PlotRange -> All, AxesOrigin -> {1, 0},
 ImageSize -> 600] & /@ Reverse[Range[6]]]

Answer 3

StackedListPlot

The OP data on Pastebin is no longer available, so using made-up data:

SeedRandom[123]
data = Table[RandomInteger[{5,10}] + 
  RandomFunction[ARProcess[{RandomReal[{.1, .9}]},RandomReal[10]], {1, 24}], 10];

Row[{ListLinePlot[data, ImageSize -> 400],
   StackedListPlot[data, ImageSize -> 400, PlotStyle -> RandomColor[10]]}]

PlotLayout -> "Stacked"

Row[{ListLinePlot[data, ImageSize -> 400, PlotLayout->"Stacked", 
    Filling -> Automatic, PlotStyle -> (rc = RandomColor[10])],
 StackedListPlot[data, ImageSize -> 400, PlotStyle ->rc]}]