l = {9, 9, 10, 62};
p = l /. x_ -> 100 + x - x/ Log@x;
posTxt = Text[
Style[#[[1]], FontFamily -> "Helvetica", 15, Bold,
Background -> Black, White,
LineSpacing -> {1, 1}], {#[[2]], #[[3]]}] &;
s = BarChart[p, BarOrigin -> Left,
ChartStyle -> {EdgeForm[None],
Darker /@ {Blue, Brown, Red, Green}}, BarSpacing -> Large];
t = BarChart[180 {1, 1, 1, 1}, BarOrigin -> Left,
ChartStyle -> EdgeForm[None], BarSpacing -> Large];
q = BarChart[220 {1, 1, 1, 1}, BarOrigin -> Left,
ChartStyle -> {EdgeForm[None], Lighter /@ {LightBlue, LightBlue}},