# Plot challenge: two bar charts next to next with one indicator line

Simple task: I would like to place two bar charts in a row and have an indicator horizontal line going above the two bar charts.

What I did:

bar1 = BarChart[{100, 75, 100}, ChartLayout -> "Stacked",
ChartStyle -> {Blue, Black, Blue}, Frame -> False, Axes -> False,
PlotLabel -> "bar1"];
bar2 = BarChart[{100, 38, 15, 38, 85}, ChartLayout -> "Stacked",
ChartStyle -> {Blue, Black, White, Black, Blue}, Frame -> False,
Axes -> False, PlotLabel -> "bar2"];
indicator =
Plot[-65 + 100, {x, 0, 4}, PlotStyle -> Red,
PlotLegends -> ToString[65]];


To combine the plots, I tried:

Show[Row[bar1, bar2], indicator]


but the result:

HELP ! The colors need to be the same.

This is how it should look like in the end:

• No, I misunderstood what you wanted. Actually, I don't know what you want. Is there some example figure out there that you could link to so that we can see what you want? Aug 4 '16 at 15:25
• @march, I hope this helps. Aug 4 '16 at 15:37
• Row requires the objects to be put in a list in the first argument, like in Row[{obj1, obj2, ...}]. You miss the curly braces in your code
– glS
Aug 4 '16 at 15:39
• Something like Overlay[{GraphicsRow[{bar1, bar2}],indicator}] but I am not sure where exactly you want that line to pass. Aug 4 '16 at 15:46
Use Epilog and GraphicsRow. Something like
GraphicsRow[{bar1, bar2},

and you can change the coordinates {{0, -180}, {750, -180}} of the Line by trial and error to get what you want (that's how I usually do it). The result is