r - 如何在 R 中的 ggplot2 中使用 qpolot 在图例标题中上标 -(减号)

Question

我正在尝试使用 bquote 在 ggplot2 的轴标题中的下标 4 之后直接上标“-”。我很接近!下面给了我所有的东西，除了一个小的上标——紧跟在下标 4 之后:

qplot(uptake, data = CO2) +  
ylab(bquote('Membrane available NH '[4]*'-N (  '*mu*'g' ~ resin^-1* ~ 14~day^-1*')'))

我试过玩 ^，例如:

qplot(uptake, data = CO2) +  
ylab(bquote('Membrane available NH '[4]*^-'-N (  '*mu*'g' ~ resin^-1* ~ 14~day^-1*')'))

但是会得到如下错误信息:

Error: unexpected '^' in "qplot(uptake, data = CO2) +  
ylab(bquote('Membrane available NH '[4]*^"

显然我没有正确表达 ^。

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

非常感谢!

Answer 1

我以为要求的是下标 4 和上标减号之间的额外空格。使用 phantom() 是一种方法。 “空格”的长度与适合字符值所需的空格相同(在 0.67 倍率下):

 NH[4]^{phantom("A")~"-"}

这是对您可能想要什么的猜测。我取出了尽可能多的引号，并在某些地方使用了 cdots 而不是并列。显然，您或您的编辑的口味可能会有所不同:

qplot(uptake, data = CO2) +  
   ylab(bquote(Membrane~available~NH[4]^{phantom("__")*'-'}-
                N *(  mu %.% g [ resin]^-1 %.% ~ 14~day^-1)))

如果假定为微克，则使用 mu*g~