r - como - salto de linea html

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

Question

Tengo el siguiente histograma 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 thread 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 ()?

Answer 1

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

Answer 2

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