R 如何使用控制柄更改填充？

我有一张这样的条形图

iris %>% ggvis(~Species, ~Petal.Width)

iris %>% ggvis(~Species, ~Petal.Width) %>% layer_bars(fill=~Species) %>% scale_nominal("fill", range = c("#333333","red", "#333333"))

我想使用

handle\u click（）

在单击一个条形图时，将条形图的

fill

更改为红色。例如，如果我单击versicolor，它应该是这样的

iris %>% ggvis(~Species, ~Petal.Width)

iris %>% ggvis(~Species, ~Petal.Width) %>% layer_bars(fill=~Species) %>% scale_nominal("fill", range = c("#333333","red", "#333333"))

我知道我需要处理点击事件，但通过查看文档，我无法理解如何处理。我已经开始了，但是我不知道如何设置

barRed（）

：

barRed%ggvis（~物种，~花瓣宽度）%>%
句柄单击（单击时=禁用）