表达式中有多个换行符

Question

我需要添加多个换行符，但我在expression() 中的 atop 函数上遇到了困难，因为我只能添加一个换行符：

main=expression(atop("Fig. 3. Total yearly diffuse attenuation coefficient at","490 nm (K"[d]*") and chlorophyll concentration at 3 coral reef sites between 2003 and 2012")

Answer 1

一种解决方法是使用textstyle 以正常大小绘制：

plot(1,1,main=expression(
  atop(textstyle("a"),
    atop(textstyle("b"),
         textstyle("c")
    )
  )
))

一个可能更清晰的解决方案是多次使用mtext，每行一次：

plot(1,1)
mtext(expression(bold("Fig. 3. Total yearly diffuse attenuation coefficient")), line=3)
mtext(expression(bold("at 490 nm (K"[d]*") and chlorophyll concentration")), line=1.9)
mtext(expression(bold("at 3 coral reef sites between 2003 and 2012")), line=1)

请注意，在第二行中，我使用了line=1.9 来稍微纠正由于下标引起的间距：