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

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