Текст легенды обложки, содержащий выражение в ggplot2

Question

Я искал функцию обертки в ggplot2, которая может помочь мне поместить текст легенды в определенную прямоугольную область. Пока я его не нашел. Вот мой случай:

library (ggplot2) 
p = ggplot (mtcars, aes (x = mpg, y= cyl,color = factor (cyl))) 
p + geom_point() 
z = unique (factor (mtcars$cyl)) 
p + geom_point() + scale_color_manual(name="legend title", breaks = z, 
            labels = c (expression(a + b + c + d + e + f + g + h + i), expression(x) , expression(y)), 
            values = c("red","blue","green")) 

То, что я хочу, чтобы иметь длинное выражение, завернутое в пределах ширины пяти символов.

Есть ли какая-либо функция, которая может автоматически обертывать текст каждой легенды в определенной ширине текста, и мне интересно, применимо ли это для выражений.

Answer 1

Следующее, используя str_wrap от stringr, должно работать на вас. Он обертывает, используя значение 5 по запросу, но не выглядит так здорово.

library(ggplot2) 
library(stringr) 
p = ggplot (mtcars, aes (x = mpg, y= cyl,color = factor (cyl))) 
p + geom_point() 
z = unique (factor (mtcars$cyl)) 
p + geom_point() + scale_color_manual(name="legend title", breaks = z, 
             labels = c(str_wrap(expression(a + b + c + d + e + f + g + h + i), 5), expression(x) , expression(y)), 
             values = c("red","blue","green"))