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

我收到以下错误:

Error: unexpected '==' in " 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)))