將圖例文本包裝爲適合繪圖窗口

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") to get the width of the device, and 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")。