用表达式分割轴标签

我有一个带有包含表达式的长标签的图，我想将其分成两行。
在表达式中添加“\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)

任何帮助，将不胜感激。谢谢

这是另一个解决方案，依赖于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 刻度线碰撞。