r - 包含表达式的图例文本换行

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

以下使用 stringr 中的 str_wrap 应该适合您。它按照要求使用值 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") )