用plotly交互式地改变ggplot的颜色

Question

我有以下示例数据：

d <- data.frame(x = rnorm(10), y = rnorm(10),
                pheno1 = c(rep("a", 5), rep("b", 5)),
                pheno2 = c(rep("d", 3), rep("e", 3), rep("f", 4)))
p <- ggplot(d, aes(x=x, y=y, colour = pheno1)) +
     geom_point()
ggplotly(p)

现在我正在寻找一种方法，在pheno1中以交互方式将结肠方案从pheno2更改为plotly。

我知道我可以用

更改配色方案

list(method = "restyle",
     args = list("colorscale", "..."),
     label = "...")

但我还没有发现任何改变着色的基础数据。