dplyr мутировать заменить динамическое имя переменной

Question

Следующий код заменяет значения Hwy> 25 с 1 в противном случае 0.

library(ggplot2) 
data(mpg) 
mpg %>% mutate(hwybin=replace(hwy>25,1,0)) 

Как бы я сделать замену с Hwy в качестве имени переменной. Что-то вроде линий:

varname <- "hwy" 
mpg %>% mutate(hwybin=replace(varname>25,1,0)) 

Я чувствую, что у меня что-то неявное. Спасибо.

Answer 1

Мог бы также включить комментарий в ответ (и сделать свой вопрос воспроизводимым):

library(dplyr) 
library(ggplot2) 
library(lazyeval) 

data(mpg) 

a <- mpg %>% mutate(hwybin=replace(hwy>25, 1 ,0)) 

varname <- "hwy" 
b <- mpg %>% mutate_(hwybin=interp(~replace(varname>25, 1 ,0), 
            varname=as.name(varname))) 

identical(a, b) 
## [1] TRUE 

Answer 2

Я хотел бы сделать это:

library(data.table) 
mybin <- function(DF,var,thresh,suffix="bin") 
    DF %>% mutate(x = + (.[[var]] > thresh)) %>% setnames("x", paste0(var,suffix)) %>% `[` 

mpg %>% mybin("hwy",25) 

Я уверен, что есть некоторые dplyr -flavored альтернатива data.table-х setnames, но я не знаю об этом.