使用网格时包裹小图表标题文本

Question

示例说明：

library(tidyverse)

diamonds2 <- diamonds  

long_names <- c("very long label blah blah", "another long label look at that",
                "some text here big long label", "and so on and so forth", "the quick brown fox")

diamonds2$long <- long_names

ggplot(diamonds2, aes(x = depth, y = carat)) +
  geom_line() +
  facet_grid(cols = vars(long))

看起来像这样：

我想包装每个Chartlet的标题，以便可以阅读所有文本。

我该怎么做？

Answer 1

diamonds2$long <- long_names %>% str_wrap(width = 10)

...然后像以前一样进行ggplot：