r - 包装图例文本以适合绘图窗口

Question

我正在使用ggplot绘制一些数据图表，并且我注意到图例文本非常长且不适合窗口。

+ opts(legend.position = 'bottom', legend.direction = 'horizontal', size=0.1)  +
    guides(colour = guide_legend(nrow = 3), size=1) 

ggplot中是否有选项来包装图例文本以适合窗口。

Answer 1

据我所知，因此我采取了一种使用strwidth()的变通方法，该方法可计算基本图形中的文本宽度。

title <- "This is a really excessively wide title for a plot, especially since it probably won't fit"

使用 par("din")来获取设备的宽度，并使用 strwidth()来计算文本大小:

par("din")[1]
[1] 8.819444
strwidth(title, units="inches")
[1] 11.47222

在函数中使用它并进行绘制:

wrapTitle <- function(x, width=par("din")[1]){
  xx <- strwrap(x, width=0.8 * nchar(x) * width / strwidth(x, units="inches"))
  paste(xx, collapse="\n")
}

wrapTitle(title)
[1] "This is a really excessively wide title for a plot, especially since it\nprobably won't fit, meaning we somehow have to wrap it"

剧情:

ggplot(mtcars, aes(wt, mpg)) + geom_point() + opts(title=wrapTitle(title))

如果要将图保存到文件，则可以将 par("din")替换为实际保存的图尺寸。