totals4 = {{1093, "AUSTRALIA"}, {235, "BELGIUM"}, {474, "BERMUDA"}, {187, "BRAZIL"}};
BarChart[#, ChartStyle -> "Pastel",
         ChartLabels -> (Placed[Rotate[Style[#, Blue], Pi/3] & /@ #2, {{.5, 0}, {1, 1}}])
         ] & @@ Transpose[totals4]

BarChart[Range[4], ChartStyle -> "Pastel", ChartLabels ->
         MapIndexed[Style[#1, ColorData["Pastel", Rescale[#2[[1]], {1, 4}]], Bold, 16] &,
                    CharacterRange["A", "D"]]]

Style[obj_, {GrayLevel[0]}] :> obj

totals4 = {{1093, "AUSTRALIA"}, {235, "BELGIUM"}, {474, "BERMUDA"}, {187, "BRAZIL"}};

BarChart[#, ChartStyle -> "Pastel",
    ChartLabels -> (Placed[Rotate[#, Pi/3] & /@ #2, {{.5, 0}, {1, 1}}])] & @@
  Transpose[totals4] /. Style[obj_, {GrayLevel[0]}] :> obj

Text[Style[obj_, {GrayLevel[0]}], pos__] :> Text[obj, pos]

ClearAll[ceFX]
ceFX[cedf_: "Rectangle", style_: (FontSize -> Scaled[.04])] :=
 ({ChartElementData[cedf][##],
  Text[Style[#3[[1]], style], Offset[{0, -2}, {Mean[#[[1]]], 0}], {0, 1}, {1, 0}]} &)

BarChart[# -> #2 & @@@ totals4, ChartStyle -> "Rainbow", ChartElementFunction -> ceFX[]]

BarChart[# -> #2 & @@@ totals4, ChartStyle -> "DarkRainbow",
 ChartElementFunction -> ceFX["GlassRectangle", Directive[Bold, Italic, FontSize -> 20,
    FontFamily -> "Segoe Script"]]]