ggplot2: разделение текста фасета / полосы на две строки
Рассмотрим следующий граф ggplot2 с длинным текстом фасетки / полосы, разбитым на две строки. Текст выходит за пределы области, посвященной заголовкам аспектов.
library(ggplot2)
x <- c(1:3, 1:3)
y <- c(3:1, 1:3)
grp <- c(0, 0, 0, 1, 1, 1)
p <- qplot(x=x, y=y) + geom_line() + facet_wrap(~ grp)
grob <- ggplotGrob(p)
strip.elem.y <- grid.ls(getGrob(grob, "strip.text.x",
grep=TRUE, global=TRUE))$name
grob <- geditGrob(grob, strip.elem.y[1],
label="First line and\n second line" )
grid.draw(grob)
Есть ли способ увеличить высоту текстовой области полосы?