plot(x, y, xaxt='n', xlab='', ylim = c(0,1)) #, ylim = c(min.y, max.y))
axis(side = 1, at = 1:length(bb$names), bb$names, las=2)
arrows(x, y-sd, x, y+sd, code=3, angle = 90, length=0.05)