如何在facet_grid()中添加自定义标签

Question

我正试图为使用facet_grid()进行分面的绘图添加自定义的facet标签，方法如下：

p <- qplot(wt, mpg, data = mtcars)
p <- p + facet_grid(. ~ vs, labeller = label_bquote(alpha^a==alpha^b))

这仍然可以正常工作。但是，当我将要拆分的变量添加到刻面标签的方程式中时，就像这样：

p <- qplot(wt, mpg, data = mtcars)
p <- p + facet_grid(. ~ vs, labeller = label_bquote(alpha^a==alpha^b==.(x)))

我遇到了以下错误：

Error: 在 " p <- p + facet_grid(. ~ vs, labeller = label_bquote(alpha^a==alpha^b==" 中出现了意外的 '=='。

有没有人能帮我解决这个看起来微不足道的问题？

- Luc

Answer 1

这并不是因为你添加变量，而是第二个 == 导致了问题。这是 R 解析运算符方式的问题。你可以使用 {} 控制 R 所看到的内容:

p <- p + facet_grid(. ~ vs, labeller = label_bquote({alpha^a==alpha^b}==.(x)))

- alexwhan

Answer 2

如果您添加适当的括号，这将起作用。

p <- p + facet_grid(. ~ vs, labeller = label_bquote({alpha^a==alpha^b}==.(x)))

- shadow