GridLine в верхней части гистограммы в Mathematica

Question

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

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

Answer 1

Это можно сделать с помощью опции метода:

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

(это должно работать на любом графике.)

Answer 2

Другой вариант - нарисовать линию сетки явно с помощью Epilog . Это было бы решением, если бы вы хотели, чтобы некоторые линии сетки (например, вертикальные) были позади, а некоторые - спереди. Я добавил некоторые другие опции на тот случай, если вы не хотите, чтобы линия сетки кровоточила по осям.

BarChart[{Range[10], Range[10]}, ChartLayout -> "Stacked", 
 Epilog -> {Orange, Thick, Line[{{0, 4}, {3, 4}}]}, 
 PlotRangeClipping -> True, PlotRangePadding -> 0]