如何在 expression() 中使用 atop 函数？

我需要添加换行符，但我正在努力使用 atop 函数expression(). The main是我想分成两行的部分。

> plot (DAC~Chlo,data=brazilw,
        pch=15,col="red",cex=0.5,
        main=expression("Fig. 3. Relationship
                        between diffuse attenuation coefficient at 490 nm 
                        (K"[d]*") and chlorophyll concentration at three coral
                         reef sites"),
        xlab=expression("Chlorophyll concentration (mg "*m^{-3}*")"),
        cex.lab=0.8,
        cex.main=0.8,
        cex.axis=0.8, 
        font.main=1,
        ylim=c(0,0.3),
        xlim=c(0,3.5), 
        ylab=expression("K"[d]*"(m"*-1^{-1}*")"))

你没有具体说明，where你想打破字符串，但这个例子应该可以帮助你：

plot(1~1, 
 main=expression(atop("bla bla bla" ~ (K[d]),
                      "bla bla bla")))