Wrap-Legendentext mit Ausdruck in ggplot2

Question

Ich habe nach einer Wrapper-Funktion in ggplot2 gesucht, die mir helfen kann, den Legendentext in einem definierten rechteckigen Bereich zu platzieren. Bis jetzt habe ich keinen gefunden. Hier ist mein Fall:

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")) 

Was ich will, ist die lange Ausdruck innerhalb einer Breite von fünf Zeichen gewickelt haben.

Gibt es eine Funktion, die automatisch den Text jeder Legendenschlüssel in eine definierte Textbreite umbrechen kann, und ich frage mich, ob das auch für Ausdrücke gelten kann.

Answer 1

Folgendes, mit str_wrap von stringr, sollte für Sie arbeiten. Es wird wie gewünscht mit einem Wert von 5 umbrochen, sieht aber nicht so gut aus.

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"))