変数をggplot2で引用符で囲まずに評価してください

Question

varに変数名を渡して、ggplotを含むあらゆる種類の処理を行いたいと思います。

明らかに、UQはデータ操作のために機能しますが、ggplot2では機能しません。だから私の関数 "foo"は動作しますが、 "foo1"は機能しません。

最適なソリューションは何ですか？ ggplotため

set.seed(100) 

dat <- tibble(`a` = rbinom(100, 1, 0.2), `b` = rnorm(100)) 


foo <- function(var) 
{ 
    var_q <- enquo(var) 

    dat %>% mutate(`d` = UQ(var_q) + 1) 

} 

foo(`a`) 


foo1 <- function(var) 
{ 
    var_q <- enquo(var) 

    dat %>% mutate(`d` = UQ(var_q) + 1) %>% ggplot(aes(x=UQ(var_q), y=`b`)) + geom_point() 
} 

foo1(`a`) 

Answer 1

foo1 <- function(var) { 
    var_q <- enquo(var) 

    dat %>% 
    mutate(`d` = (!!var_q) + 1) %>% 
    ggplot(aes(x=eval(rlang::`!!`(var_q)), y=`b`)) + 
    geom_point() 

}