R:ggplot2，我可以让 facet/strip 文本环绕吗？

Question

我发现这个非常有用的文本换行代码 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))

我想用它来将文本包裹在一个 facet/strip 中，但不知道如何。

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

它是否传递给 strip.text.x 选项？

Answer 1

自从发布了这个问题，新的 label_wrap_gen()功能与 ggplot2 (>= 1.0.0，我认为) 处理得很好:

facet_wrap(~variable1, labeller = label_wrap_gen())