In the following query, If the option PlotStyle->{Red,Blue}
is inserted it works but FillingStyle->{Red,Blue}
does not: The filling turns all Blue. Is this a known issue? I tried basic ColorFunction
but could only get rainbows. Any other options? It's desirable to alternate the segments using only 2 colors (though not Red and Blue, that's just for example).
Labeled[DateListPlot[#, Joined -> True, ImageSize -> 1000,
AspectRatio -> 1/5,
Epilog -> {Inset[
Text[Style[">statigrafix<", Blue, Opacity[0.1],
FontFamily -> "Consolas", FontSize -> 14]],
Scaled[{0.15, 0.75}]]}, Frame -> {True, True, False, False},
Filling -> Bottom, GridLines -> None] &@
Split[FinancialData["^DJI", "Close", "Jan 1 1980"],
Not@(#[[2]] > 10000 && #2[[2]] <= 10000) &],
Style["Dow Jones Industial 1.1.80-6.22.12 segmented by 10k \
crossings", Gray, Opacity[0.3], FontFamily -> "Helvetica"], Bottom]
Filling -> Axis, FillingStyle -> {1 -> Red, 2 -> Blue}, , ColorFunctionScaling->False
? $\endgroup$PlotStyle -> {Red, Blue}, FillingStyle -> Table[i -> If[OddQ[i], Red, Blue], {i, 200}], ColorFunctionScaling -> False
200 should be replace with the length of the list produced bySplit
$\endgroup$