r - 参照を介して変更する既存の変数を提供する方法は?

Question

ここに私のデータがあります：

df <- tibble::tribble(
         ~A,  ~B,
        "C", "G",
        "D", "H",
        "E", "I",
        "F", "J")

df$A <- as.factor(df$A)

var <- "A"

そして、おそらくrlangなどを使用して、AをCからEにレベル変更したいのですが、うまくいきません!

var <- syms(var)
df <- df %>% mutate(!!!var = fct_relevel(!!!var, "E"))

私の望ましい出力は次のとおりです。

df <- df %>% mutate(A = fct_relevel(A, "E"))
levels(df$A)

しかし、手動で A を提供する代わりに、var 文字ベクトルを使用して行 rlang syms でこれらをプログラムで提供したいと考えています。

どうすればいいですか？