r - 在多行中打印文本作为绘图或轴的标题，文本中存在下标

Question

我希望在两行中打印标题中的文本，但由于文本中存在下标而无法实现所需的输出。以下是我想要的两行文本的示例。

plot(1,main=expression(paste(CO[2]~'Flux (kg C ', m^-2,' ',s^-1,')')))

但是在以下命令中使用换行符并没有给出将（仅）文本带入新行的预期结果：

plot(1,main=expression(paste(CO[2]~'Flux \n(kg C ', m^-2,' ',s^-1,')')))

请帮我解决这个问题。提前致谢

Answer 1

您可以使用该atop功能执行此操作。

plot(1,main=expression(atop(CO[2]~'Flux', paste('(kg C ', m^-2,' ',s^-1,')'))))

由于lheight par不影响表达式，如果您想要更紧密的行间距，您可以使用以下内容。

plot(1,main=expression(textstyle(atop(CO[2]~'Flux', paste('(kg C ', m^-2,' ',s^-1,')')))), 
     cex.main=2)