0 
library(dplyr)

specials <- names(mtcars)[1:2]
specials[1]

i=1

セットアップが完了しました。これで動作します...

mtcars %>%
  select_(specials[i], ~gear, ~carb)

nse がフィルターの追加に失敗するのはなぜですか?

mtcars %>%
  select_(specials[i], ~gear, ~carb) %>%
  filter_(specials[i] == 21.4)
4

1 に答える 1

1

必要な場合がありますinterp

library(lazyeval)
library(dplyr)
mtcars %>%
      select_(specials[i], ~gear, ~carb) %>% 
      filter_(interp(~nm == 21.4, nm = as.name(specials[1])))
#  mpg gear carb
#1 21.4    3    1
#2 21.4    4    2
于 2016-08-31T19:44:46.103 に答える