Podział linii w wyrażeniu()?

Question

Mam następujący histogram w R:

hist(alpha,cex.main=2,cex.axis=1.2,cex.lab=1.2, 
main=expression(paste("Histogram of ",hat(mu), ", Bootstrap samples, Allianz"))) 

titlle jest zbyt długa, więc chcę podział wiersza. Zgodnie z tym thread Próbowałem

hist(alpha,cex.main=2,cex.axis=1.2,cex.lab=1.2, 
main=expression(paste("Histogram of ",hat(mu), ",cat("\n") Bootstrap samples, Allianz"))) 

lub

hist(alpha,cex.main=2,cex.axis=1.2,cex.lab=1.2, 
main=expression(paste("Histogram of ",hat(mu), cat("\n"),", Bootstrap samples, Allianz"))) 

Ale oba nie działają, w jaki sposób mogę się przełamać linii w paście()?

Answer 1

można łatwo używać podziałów wierszy w regularnych paste, ale to plotmath paste (faktycznie inna funkcja również bez „SEP” argumentu) i (długie) ?plotmath strona specjalnie mówi ci, że nie można zrobić. Więc jak wygląda obejście? Korzystanie z funkcji plotmath atop jest jedna prosta opcja:

expression(atop("Histogram of "*hat(mu), Bootstrap~samples*','~Allianz)) 

To złamie się przecinkiem i centrum wyrażenia plotmath. Dostępne są bardziej skomplikowane opcje.

To ilustruje drukowanie pliku graficznego. Jak na ironię, pierwszy wysiłek dał mi pokaz, który miał twój problem z odcięciem "czapki" (czy to są okręgi?), A to pokazuje jak zwiększyć marginesy. Górny margines to prawdopodobnie trzecia liczba, więc c (3,3,8,0) może ci lepiej odpowiadać:

pdf("test.pdf") ; par(mar=c(10,10,10,10)) 
hist(1:10,cex.main=2,cex.axis=1.2,cex.lab=1.2, 
main=expression(atop("Histogram of "*hat(mu), 
         Bootstrap~samples * ',' ~Allianz))) 
dev.off() # don't need to restore; this 'par' only applies to pdf() 

Answer 2

Będziesz musiał użyć czegoś innego. Zostałem skierowany do użycia mtext i bquote, kiedy utknąłem na similar problem.

alpha = rnorm(1e3) 
hist(alpha,cex.main=2,cex.axis=1.2,cex.lab=1.2,main=NULL) 

title <- list(bquote(paste("Histogram of " , hat(mu))) , 
       bquote(paste("Bootstrap samples, Allianz"))) 


mtext(do.call(expression, title),side=3, line = c(1,-1) , cex = 2) 

W powyższym przykładzie, title (dzięki @hadley) można uprościć do

title <- as.list(expression(paste("Histogram of " , hat(mu)), "Bootstrap samples, Allianz"))