在 R 中的函数中使用 plot_ly 时如何维护因子

问：

我正在尝试将条形图放入函数中，以便在需要时更改变量以绘制。代码在函数外部完美运行，但在函数内部的上下文中不起作用。 问题在于 barplot 不再将 x 变量视为 ，尽管它在 （测试后验证）中。plot_lyplot_lyfactorfactordata.frame

此外，如果能解释为什么我必须分别使用和解析上下文和上下文中的变量，我们将不胜感激。enquo(){{}}dplyrplotly

代码（注释是恢复因子的尝试）：

library(plotly)
library(dplyr)
n <- 100
df <- data.frame(x = as.factor(sample(1:3, n, replace = T)), 
                   y = rnorm(n))

summary_plot <- function(df, var){
  quo_var <- enquo(var)
  
  data.frame(df %>%
               group_by({{var}}) %>%
               summarise(n = n())) %>%
  plot_ly(
    # x = ~as.factor(quo_var),
    # x = as.factor(~quo_var),
    x = ~quo_var,
    y = ~n,
    type = "bar"
  )
  
}

summary_plot(df, x)