r - 用表达式分割 Axis 标签

Question

我有一个带有包含表达式的长标签的图，我想将其分成两行。
在表达式内添加“\n”，结果不符合预期。

ylabel <- expression("A very long label with text and \n 
expression"*(alpha+beta) [ij]*"  A very long label with text and expression")
curve(x^3 - 3*x, -2, 2, xlab=xlabel)

如有任何帮助，我们将不胜感激。谢谢

Answer 1

这是另一个解决方案，依赖于atop，就像 @AndresT 在他的编辑中所做的那样。 请注意，我们不能在表达式中使用像 \n 这样的控制字符，这解释了为什么要使用 expression(paste("...\n", alpha[i], ".. ..")) 不会产生所需的输出。

xlabel <- expression(atop("A very long label with text and expression", 
                          paste((alpha+beta)[ij], "   A very long label ...")))
curve(x^3 - 3*x, -2, 2, sub=xlabel, xlab="")

请注意，我使用了 sub 而不是 xlab 以避免与 x 刻度线发生冲突。