表达式（）中的换行符？

Question

我在R中有以下直方图：

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

标题太长了，所以我想换线。据我所知thread

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

或

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

但两个都不起作用，我怎样才能在paste（）中获得换行符？

Answer 1

您可以在常规paste中轻松使用换行符，但这是plotmath paste（实际上是一个不同的函数，也没有'sep'参数）和（long）?plotmath页面具体告诉你它无法完成。那么解决方法是什么？使用plotmath函数atop是一个简单的选项：

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

这将以逗号为中心并以plotmath表达为中心。可以使用更复杂的选项。

这说明了绘制图形文件。具有讽刺意味的是，第一次努力给了我一个显示器确实你的问题与'帽子'（是那些回旋？？）被切断，这显示了如何增加利润。上边距可能是第三个数字，所以c（3,3,8,0）可能更适合你：

 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

您将需要使用其他东西。当我被困在similar problem时，我被指示使用mtext和bquote。

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 )

在上面的示例中，title（感谢@hadley ）可以简化为

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