表达式中有多个换行符

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来纠正一点间隔：