New answers tagged

2

SeedRandom[1] data = RandomReal[1, {5, 5}]; An alternative hack is to temporarily re-define Darker (which is used to style the joined lines) as the desired line color (say, Red): Block[{Darker = (Red &)}, BarChart[data, ChartLayout -> "Stacked", Joined -> True, BarSpacing -> 0.5]] To have different colors for each line, post-...


1

SeedRandom[1] data = RandomReal[1, {5, 5}]; bc = BarChart[data, ChartLayout -> "Stacked", Joined -> True, BarSpacing -> 0.5] Two post-processing hacks: replaceAll1 = ReplaceAll[Directive[p_, a_, c_] :> Directive[p, a, Red]]; replaceAll2 = ReplaceAll[Line[x_] /; Length[x] > 2 :> {Red, Line @ x}]; replaceAll1 @ bc replaceAll2 @ ...


Top 50 recent answers are included