Gostaria de envolver automaticamente meus rótulos no ggplot2.Aqui está escrito como escrever uma função (1) para ela, mas infelizmente não sei onde colocarlabeller=label_wrap no meu código (2)

(1) função por hadley

label_wrap <- function(variable, value) {
  lapply(strwrap(as.character(value), width=25, simplify=FALSE), 
         paste, collapse="\n")
}

(2) exemplo de código

df = data.frame(x = c("label", "long label", "very, very long label"), 
                y = c(10, 15, 20))

ggplot(df, aes(x, y)) + geom_bar(stat="identity")

Gostaria de embrulhar alguns dos rótulos mais longos aqui.