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

変数を追加しているのではなく==、問題を引き起こすのは2番目です。これは、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)))