如何向facet_grid（）添加自定义标签

Question

我正在尝试将自定义构面标签添加到由facet_grid()构成的图中，如下所示：

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)))

我收到以下错误：

  

错误：“p＆lt; - p + facet_grid中的意外'=='（。~vs，labeller = label_bquote（alpha ^ a == alpha ^ b ==”

有人可以帮我解决这个看似微不足道的问题吗？

Answer 1

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

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

Answer 2

如果您只是添加适当的括号，这将有效。

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