avvolgimento del testo della legenda per adattarlo alla finestra del grafico

Question

Sto utilizzando ggplot per tracciare alcuni dati e ho notato che il testo delle legende è molto lungo e non si adatta alla finestra.

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

Esiste un'opzione in ggplot per avvolgere il testo della legenda per adattarlo alla finestra.

Answer 1

Non per quanto ne so, così ho fatto ricorso a una soluzione alternativa utilizzando strwidth(), che calcola la larghezza del testo nella grafica di base.

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

Usa par("din") to get the width of the device, and strwidth() `per calcolare la dimensione del testo:

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

usarlo in una funzione e la trama:

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" 

La trama:

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

---

Se si desidera salvare la trama su file, quindi è possibile sostituire par("din") con l'attuale dimensione del tracciato salvato.