R中三部分表达图形标题中的新行

Question

我一直在尝试在图形标题中添加新行，但遗憾的是我无法做到这一点。我使用以下代码：

numcases <- 100000                            
min <- 0                                    
max <- 6
x <- round(runif(numcases,min,max)+.5)+round(runif(numcases,min,max)+.5)
png('papiri.png', units= "mm", width = 168, height = 168, res = 600)
par(mfrow=c(2,1))                        
hist(x,breaks=seq(1.5,12.5), main=NULL)
title(main=expression(paste('Papiri pu papi pipiri papiri pepiri pupiri pir papi pupiri \npapiri pup pirip ', italic('Papiri pupiri'), ' pipiri')))
dev.off()

但它是这样的：

Graphic

我希望所有文字都保持集中。有人可以帮忙吗？

非常感谢！

Answer 1

可以使用atop：

hist(x, breaks = seq(1.5,12.5), main = expression(atop(Papiri~pu~papi~pipiri~papiri~pepiri~pupiri~pir~papi~pupiri, apiri~pup~pirip~italic(Papiri~pupiri)~pipiri)))

谢谢！

Answer 2

我认为基本图形的标准方法是使用mtext，

par(mar=c(1,1,5,1))
plot.new()
box()
titles <- list("first line", expression(alpha*beta), ~italic(third~line))
invisible(mapply(mtext, text = titles, line = seq_along(titles)))