如何在Plotly中交互式切换ggplot图形的着色分组字段（pheno1→pheno2）

我来帮你搞定这个交互式切换着色依据的需求！其实核心是要通过Plotly的方法更新着色的数据源，而不只是调整配色。下面是完整的可运行代码，以及详细的解释：

完整实现代码 #

library(ggplot2)
library(plotly)

# 生成你的示例数据
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))
)

# 创建基础ggplot图并转成plotly对象
p <- ggplot(d, aes(x=x, y=y, colour = pheno1)) + geom_point()
p_ly <- ggplotly(p)

# 定义切换按钮：实现从pheno1到pheno2的着色切换
toggle_buttons <- list(
  list(
    method = "update",
    args = list(
      list(color = ~pheno1),  # 更新着色的数据源
      list(legend = list(title = list(text = "pheno1")))  # 更新图例标题
    ),
    label = "按pheno1着色"
  ),
  list(
    method = "update",
    args = list(
      list(color = ~pheno2),
      list(legend = list(title = list(text = "pheno2")))
    ),
    label = "按pheno2着色"
  )
)

# 把按钮添加到图的顶部布局中
p_ly %>% 
  layout(
    updatemenus = list(
      list(
        type = "buttons",
        direction = "right",
        x = 0.1,
        y = 1.15,
        showactive = TRUE,
        buttons = toggle_buttons
      )
    )
  )

关键细节解释 #

1. 为什么用update方法？
   我这里没有用单纯的restyle，因为我们需要同时做两件事：一是修改着色的数据源（对应color参数，也就是ggplot里的colour映射），二是更新图例标题，让用户一眼就知道当前的分组依据。update方法可以同时完成restyle（修改数据属性）和relayout（修改布局属性）的操作。

2. 如果不需要修改图例标题，简化版本也可以
   要是你只需要切换着色数据，不在乎图例标题，直接用restyle就行：

   toggle_buttons <- list(
     list(
       method = "restyle",
       args = list("color", ~pheno1),
       label = "pheno1"
     ),
     list(
       method = "restyle",
       args = list("color", ~pheno2),
       label = "pheno2"
     )
   )
   

3. 自定义配色的扩展
   如果想给不同的分组指定自定义颜色，只需要在restyle的参数里加上colors就行，比如给pheno2指定红、绿、蓝三色：

   list(
     method = "update",
     args = list(
       list(color = ~pheno2, colors = c("#ff4444", "#00C851", "#33b5e5")),
       list(legend = list(title = list(text = "pheno2")))
     ),
     label = "按pheno2着色（自定义配色）"
   )
   

运行上面的代码后，你就能看到图的顶部有两个按钮，点击就能切换着色依据啦！

内容的提问来源于stack exchange，提问作者Jonas