相关疑难解决方法(0)

我在R中有以下直方图:

hist(alpha,cex.main=2,cex.axis=1.2,cex.lab=1.2,
main=expression(paste("Histogram of ",hat(mu), ", 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")))

要么

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()中获得换行符？

我在尝试着

1. 换行(自动或强制)
2. 证明文本的合理性(左侧或左侧和右侧)
3. 有希腊字母和百分号

在gglot图例标签内.

我已经尝试了几种方法,但我似乎无法将我读到的所有技巧结合起来.

我可以通过插入\n标签来获得换行符,但这似乎不适用于希腊字母,而不适用于图例标签.或者我可以在基础图中通过组合mtext()和bquote()插入一段文本(EDIT)来设置换行符和希腊字母,但正如Gregor在评论部分中指出的那样,这不起作用ggplot.下面我结合list使用paste0()to将文本传递给图例标签:问题是我找不到插入希腊字母的方法,例如gamma.

感谢你的建议.

这是我的一次尝试的MWE (编辑:改进的MWE):

label1.line1 <- "Not much to say about this one"
label2.line1 <- "blabla blabla, blabla blabla, blee blee blee (bling, bling, bling),"
label2.line2 <- paste0("(", "1900-2014: g = 1.50%, gamma = 2.75%, and r = 2.30%",")")
label3.line1 <- "blabla blabla, blabla blabla, blee blee blee (bling, bling, bling),"
label3.line2 <- paste0("(", "1900-2014: g = 2.50%, …

有没有办法获取文本字符串的控制字符,例如在plotmath表达式中"\n"进行newline评估,反之亦然.在下面的例子中,我想结合:

• 一些字符文字
• 文本控制字符(换行符)
• 替换变量名称
• 包括plotmath表达式

在阅读完这个问题之后,我可以通过替代来获得大部分内容,但newline不会对角色进行评估.现在我转圈圈,并用自己的困惑plotmath,parse,bquote和substitute.在plotmath 的帮助页面中,它说

与普通绘图不同,控制字符(例如\n)不会在plotmath中的字符串中解释.

这是否意味着它真的不可能？

lab = "some data"
form = "Exponential"
x = 1:10
y = x^2


plot( x , y , type = "b" )
title( main = substitute( paste( "Plot of " , phi , " of: "  , lab , "\nFunctional form: " , form ) , list(lab = lab , form = form …

我有一个ggplot,我expression(phantom(x) >=80)在标签文本中用来获得一个正确的大于或等于的符号.

但是我还需要紧下面(N = ...):

require(ggplot2)
.d <- data.frame(a = letters[1:6], y = 1:6)

labs <- c("0-9\n(N=10)","10-29\n(N=10)","30-49\n(N=10)", +
   "50-64\n(N=10)","65-79\n(N=10)", expression(phantom(x) >=80))

ggplot(.d, aes(x=a,y=y)) + geom_point() + 
   scale_x_discrete(labels = labs)

我如何结合expression()逃生\n？