Como avaliar uma string construída com avaliação não padrão usando o dplyr?
Eu li vários guias sobre programação comdplyr agora e ainda estou confuso sobre como resolver o problema de avaliar seqüências de caracteres construídas / concatenadas com avaliação não padrão (NSE). Percebo que existem maneiras melhores de resolver esse exemplo do que usar o NSE, mas quero aprender como.
t <- tibble( x_01 = c(1, 2, 3), x_02 = c(4, 5, 6))
i <- 1
Esse é o resultado desejado, mas quero as variáveis emmutate()
a ser construído:
t %>% mutate(d_01 = x_01 * 2)
#> A tibble: 3 x 3
#> x_01 x_02 d_01
#> <dbl> <dbl> <dbl>
#> 1 1.00 4.00 2.00
#> 2 2.00 5.00 4.00
#> 3 3.00 6.00 6.00
Esta é minha primeira tentativa, tentando usar strings:
new <- sprintf("d_%02d", i)
var <- sprintf("x_%02d", i)
t %>% mutate(new = var * 2)
#> Error in mutate_impl(.data, dots) :
#> Evaluation error: non-numeric argument to binary operator.
Esta é minha segunda tentativa, tentando usar quosures:
new <- rlang::quo(sprintf("d_%02d", i))
var <- rlang::quo(sprintf("x_%02d", i))
t %>% mutate(!!new = !!var * 2)
#> Error: unexpected '=' in "t %>% mutate(!!new ="
Esta é minha terceira tentativa, tentando usar quosures e os:=
operador:
new <- rlang::quo(sprintf("d_%02d", i))
var <- rlang::quo(sprintf("x_%02d", i))
t %>% mutate(!!new := !!var * 2)
#> Error in var * 2 : non-numeric argument to binary operator