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

Question

我正在尝试将一个自定义构面标签添加到facet_grid()如下图所示的图中:

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

这仍然很好.但是,当我在facet标签中添加我正在拆分方程式的变量时,如下所示:

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