在 Mathematica 的条形图中使用 LabelingFunction 调整字体

Question

考虑以下条形图：

如何调整标签 Function 以及图表标签的字体？

我尝试了嵌套样式。 不成功。

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}]

编辑

更改轴的样式。