如何添加自定義標籤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 2與{}看到：

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