It is not so obvious what your data are:)
Lets say you have computed your mean data and errors to be:
mean = {7.43, 8.83, 6.06, 13.8};
errors = {4, 3, 2, 1};
then you wrap Around to your data:
data = Apply[Around, Transpose[{mean, errors}], 1];
and BarChart it:
BarChart[data, ChartElementFunction -> "GlassRectangle",
ChartStyle -> "Pastel"]
which gives:
