How do I vertically center numbers on an histogram plot in R?

How do I center numbers on columns?

bar <- barplot(VADeaths)

text(rep(bar,each=nrow(VADeaths)),as.vector(apply(VADeaths,2,cumsum)), 
 labels=as.vector(apply(VADeaths,2,cumsum)),
 pos=1,cex=1,adj = c(0,0),col="orange",offset = 0.2)

This is how it looks now:

And I need to make it like here:

How do I do this? Thank you!