Разрыв строки в выражении()?

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

titlle слишком долго, так что я хочу разрыв строки. В соответствии с этим 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"))) 

Но оба не работают, как я могу получить разрыв строки в пасте()?

Answer 1

Вы можете легко использовать разрывы строк в обычном paste, но это plotmath paste (на самом деле другая функция также без какого-либо «разделительного» аргумента) и (длинный) ?plotmath страница специально говорит вам, что это не может быть сделана. Так в чем же дело? Использование функции plotmath atop один простой вариант:

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

Это сломается в запятой и центрирования выражения plotmath. Доступны более сложные варианты.

Это иллюстрирует построение графика в графическом файле. По иронии судьбы, первое усилие дало мне дисплей, у которого была ваша проблема с «шляпой» (эти обводки?), Которая была отрезана, и это показывает, как увеличить поля. Верхняя граница, вероятно, третье число, так с (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

Вы собираетесь нужно использовать что-то другое. Мне было предложено использовать mtext и bquote, когда я застрял на similar problem.

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