使用Mathematica中BarChart中的LabelingFunction调整字体

Question

考虑以下BarChart:

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

我试过嵌套Style.Unsuccessfull.

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

编辑

更改轴的样式.