用tidyeval绘制颜色

Question

我正在尝试使用一些tidyeval功能创建一个情节条形图。我已经成功创建了一个简单的条形图，但似乎无法通过属性使堆积的条形图变色。已经坚持了一段时间，似乎无法弄清楚错误在说什么。感谢任何帮助，谢谢！

get_barchart <- function(df, col, xcol, y){
  a <- sym(col)
  col <- enquo(a)
  xcol <- enquo(xcol)
  y_col <- enquo(y)

  df %>%
    group_by(!!col, !!xcol) %>%
    summarise(Total = sum(!!y_col, na.rm = T)) %>%
    plot_ly(x = xcol, y = ~Total, type = "bar",
            color = col, 
            text = ~Total, textposition = 'auto') %>%
    layout(barmode = 'stack')
}
x = "Gender"
get_barchart(data.frame(UCBAdmissions), x, Admit, Freq)

如果我注释掉颜色线，那么这个功能就可以了，所以我很确定这是导致错误的原因，但似乎无法理解为什么。