Salto de línea en expresión ()?

Tengo el siguiente histogtwig en R:

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

El título es demasiado largo, así que quiero un salto de línea. De acuerdo con este hilo probé

 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"))) 

o

 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"))) 

Pero ambos no funcionan, ¿cómo puedo obtener un salto de línea en paste ()?

Puedes usar fácilmente saltos de línea en paste común, pero esto es un paste plotmath (en realidad una función diferente también sin argumento ‘sep’) y la página de ?plotmath (larga) específicamente te dice que no se puede hacer. Entonces, ¿qué es el trabajo alternativo? Usar la función plotmath atop es una opción simple:

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

Esto romperá en la coma y centrará las expresiones de plotmath. Las opciones más complicadas están disponibles.

Esto ilustra el trazado de un archivo de gráficos. Irónicamente, el primer esfuerzo me dio una pantalla que tenía su problema con el ‘sombrero’ (¿están esas circunflejas?) Cortadas y esto muestra cómo boost los márgenes. El margen superior es probablemente el tercer número, por lo que c (3,3,8,0) podría ser más conveniente para ti:

  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 restre; this 'par' only applies to pdf() 

Vas a necesitar usar algo más. Me bquote usar bquote y bquote cuando estaba atascado en un problema similar .

 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 ) 

En el ejemplo anterior, el title ( gracias a @hadley ) se puede simplificar para

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

enter image description here

Intereting Posts