A lattice acomoda melhor textos dentro da margem. Procure fornecer um exemplo reproduzível para ajudar quem deseja te ajudar.

summary(iris)

tb <- xtabs(Sepal.Length > 5 ~ Species, data = iris)
tb

library(lattice)

barchart(tb)

library(latticeExtra)

barchart(tb) +
    layer(panel.text(x, y, labels = x, pos = 4))

À disposição.

Walmes.