Hi,
I need some help. Filling an area between curves are not properly working.
Can you help?
See file 'Test Filling' attached.
Manipulate[ListPlot[
{Y06, Y07, Y08, Y09, Y10, Y11, Y12, Y13, Y14}
, Joined -> True
, PlotLabel -> Style["Test Filling"]
, BaseStyle -> {FontFamily -> "Helvetica", FontSize -> 9}
, LabelStyle -> {10, "Helvetica", Black}
, PlotMarkers -> {Automatic, 1}
, PlotLegends -> Placed[
{"2006", "2007", "2008", "2009", "2010", "2011", "2012", "2013",
"2014"}, Right]
(* FILLING *)
, Filling ->
If[fill0607, {1 -> {{2}, Red}, {Axis, True}}
, If[fill0708, {5 -> {{6}, Green}, {Axis, True}}
, If[fill0809, {7 -> {{8}, Brown}, {Axis, True}}]]]
, GridLines -> {{{1, {Black, Thick, DotDashed}}, 2, 3, 4, 5, 6, 7,
8, 9, 10, 11, {12, {Black, Thick, DotDashed}}}, Automatic}
, GridLinesStyle -> Directive[Black, Dotted]
, FrameTicks -> {{Automatic,
Automatic}, {{{0, "."}, {1, "Jan"}, {2, "Feb"}, {3, "Mar"}, {4,
"Apr"}, {5, "May"}, {6, "Jun"}, {7, "Jul"}, {8, "Aug"}, {9,
"Sep"}, {10, "Okt"}, {11, "Nov"}, {12, "Dec"}}, Automatic}}
, PlotRange -> {{0, 13}, {20, 70}}
, ImageMargins -> 1
, FrameLabel -> {Month, Procent}
, Frame -> True
, InterpolationOrder -> 2
,
PlotStyle ->
{If[MemberQ[Years, 2006], {Red, Dashed}, None],
If[MemberQ[Years, 2007], Brown, None],
If[MemberQ[Years, 2008], Purple, None],
If[MemberQ[Years, 2009], Black, None],
If[MemberQ[Years, 2010], Blue, None],
If[MemberQ[Years, 2011], Gray, None],
If[MemberQ[Years, 2012], Yellow, None],
If[MemberQ[Years, 2013], Green, None],
If[MemberQ[Years, 2014], Red, None]
}]
, {{fill0607, False, "fill0102"}, {True, False}}
, {{fill0708, False, "fill0506"}, {True, False}}
, {{fill0809, False, "fill0708"}, {True, False}}
, Row[{CheckboxBar[
Dynamic[Years], {2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013,
2014}]}]
]
Attachments: