R: ggplot2, могу ли я обтекать фасет/полосу текста?

Я нашел этот очень полезный код для переноса текста here:

 wrapper <- function(x, ...) paste(strwrap(x, ...), collapse = "\n")`

 my_title <- "This is a really long title of a plot that I want to nicely wrap and fit onto the plot without having to manually add the backslash n, but at the moment it does not"

 r + geom_smooth() + opts(title = wrapper(my_title, width = 20))

Я хотел бы использовать его для переноса текста в фасетик/полоску, но не знаю как.

 p + geom_bar(stat="identity")+facet_wrap(~variable1) + 
    opts(strip.text.x=theme_text(size=12, face="bold")

Передается ли он параметрам strip.text.x?