包含包含表达式的图例文本

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