GridLine поверх столбчатой ​​диаграммы в Mathematica

Можно ли получить GridLine поверх BartChart? Линии сетки рисуют его, и сетка, похоже, не работает с BarChart.

BarChart[{Range[10], Range[10]}, 
         ChartLayout -> "Stacked", 
         GridLines -> {None, {4}}, 
         GridLinesStyle -> Directive[Orange, Thick]]