[解決済み] dplyr::filterで変数名として文字列を渡す

質問

mtcarsデータセットを使って質問しています。

例えば、4気筒の車にサブセットしたいのですが、可能でしょうか？

mtcars %>% filter(cyl == 4)

私の仕事では、カラム名として文字列変数を渡す必要があります。例えば

var <- 'cyl'
mtcars %>% filter(var == 4)

もしました。

mtcars %>% filter(!!var == 4)

どちらの場合も、空のデータフレームが表示されました。

どのように解決するのですか？

!! または UQ は変数を評価するので mtcars %>% filter(!!var == 4) と同じです。 mtcars %>% filter('cyl' == 4) と同じで、条件は常に false と評価されます。 !!var を表示することで証明できます。

mtcars %>% filter({ print(!!var); (!!var) == 4 })
# [1] "cyl"
#  [1] mpg  cyl  disp hp   drat wt   qsec vs   am   gear carb
# <0 rows> (or 0-length row.names)

を評価するために var を cyl カラムに変換する必要があります。 var のシンボルに変換する必要があります。 cyl を評価し、次にシンボル cyl をカラムに評価します。

使用方法 rlang :

library(rlang)
var <- 'cyl'
mtcars %>% filter((!!sym(var)) == 4)

#    mpg cyl  disp  hp drat    wt  qsec vs am gear carb
#1  22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
#2  24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2
#3  22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2
# ...

あるいは as.symbol/as.name をbaseRから取得します。

mtcars %>% filter((!!as.symbol(var)) == 4)

mtcars %>% filter((!!as.name(var)) == 4)