r - プロットまたは軸のタイトルとしてテキストを複数行に印刷し、テキストに下付き文字を付ける

Question

タイトルのテキストを 2 行で印刷したいのですが、テキストに下付き文字があるため、目的の出力を実現できません。以下は、2行で必要なテキストの例です。

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)