Настройте шрифт, используя LabelingFunction в BarChart в Mathematica

Question

С учетом следующей диаграммы BarChart:

Как я могу настроить шрифт для функции маркировки, а также меток диаграммы?

Я попробовал вложенный стиль. Неудачная.

BarChart[{1, 2, 3, 4},
ChartStyle -> {Blue, Red, Green, Yellow},
LabelStyle -> Directive[Black, Large],
ChartLabels -> {"COG1", "COG2", "COG3", "COG4"},
ImageSize -> {500, 300},
ChartBaseStyle -> EdgeForm[Thick],
LabelingFunction -> Bottom,
Background -> Black,
LabelStyle -> Directive[Black, Large]]

Answer 1

Вы имеете в виду что-то подобное?

BarChart[{1, 2, 3, 4}, 
 ChartStyle -> {Blue, Red, Green, Yellow}, 
 ChartLabels -> (Style[#, Large, White] & /@ {"COG1", "COG2", "COG3", "COG4"}),
 LabelingFunction -> (Placed[Style[#, Large], Bottom] &), 
 ImageSize -> {500, 300},
 ChartBaseStyle -> EdgeForm[Thick], 
 Background -> Black,
 AxesStyle -> White, LabelStyle -> {Large}]

Редактировать

Изменить стиль осей.