r - 如何将自定义标签添加到 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 <- 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)))