r - 表达式()中的换行符？

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”参数)和(长) ?plotmath 页面明确告诉您这是无法完成的。那么解决方法是什么呢？使用plotmath 函数atop 是一个简单的选择:

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

这将在逗号处中断并将绘图数学表达式居中。还有更复杂的选项可供选择。

这说明了绘制到图形文件。具有讽刺意味的是，第一个努力给了我一个显示器，确实存在“帽子”(那些抑扬符吗？)被切断的问题，这显示了如何增加边距。上边距可能是第三个数字，因此 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()