Espressione e nuova riga nelle etichette del grafico

Question

Desidero aggiungere alcuni pedici e apici alle etichette del mio grafico. Ho provato expression, ma non funziona come vorrei con le nuove linee (\n). Ho provato a risolverlo usando paste, ma non funziona. Qui di seguito sono alcuni dei miei tentativi:

par(mfcol=c(1,3)) 
plot(1,1,main=expression("first line \n second line x"^2)) 
plot(1,1,main=expression(paste("first line \n second line", "x"^2))) 
plot(1,1,main=paste("first line \n second line", expression("x"^2))) 

Produce:

In prime due foto la seconda linea non è ben centrato, nel terzo l'apice fallisce. Come ottenere sia la linea centrale che i pedici/apici?

Answer 1

È possibile introdurre un'interruzione di linea all'interno di un'espressione: (. Sto usando bquote piuttosto che expression qui - sia il lavoro, in questo caso)

bquote(atop("first line", 
      "second line" ~ x^2)) 

Esegui demo(plotmath) per ulteriori informazioni e cercare alla documentazione per atop.

boxplot a quanto pare ha qualche problema interpretare le espressioni nel suo titolo. Una soluzione semplice è quella di tracciare il titolo a parte:

boxplot(data, main = '') 
title(bquote(atop("first line", "second line" ~ x^2))) 

Answer 2

Una soluzione rapida è quella di aggiungere alcuni spazi prima della parola "prima".

Dal plotmath non supporta a capo, è possibile utilizzare mtext per creare le linee uno per uno come questo:

plot(1,1) 
exp <- 2 
Lines <- list(bquote("first line"),bquote("second line x"^2)) 
mtext(do.call(expression, Lines),side=3,line=1:0)