用于更改散点图中数据颜色属性的下拉菜单 plot (Plotly R)

Question

我正在尝试创建一个具有可选颜色属性的 plotly 图，以便将选定的分类数据列作为颜色变量传递，它会更改标记的颜色以及我的散点图 plot 的图例。

这是示例：

df <- data.frame(x = runif(200), y = runif(200), 
                 z = sample(c("a", "b", "c"), 200, replace=TRUE),
                 w = sample(c("d", "e", "f",'g'), 200, replace=TRUE))
p <- plot_ly(df, x = ~x)%>%
  add_markers(y = ~y, color = ~z,visible=T)%>%
  layout(
    title = "Drop down menus - color",
    xaxis = list(domain = c(0.1, 1)),
    yaxis = list(title = "y"),
    updatemenus = list(
      list(
        y = 0.7,
        buttons = list(
          list(method = "restyle",
               args = list("color", list(~z)),  
               label = "group by z"),
          list(method = "restyle",
               args = list("color", list(~w)),  
               label = "group by w")))
    ))

但是，在两个选项之间切换，plot 不会改变。 显然，我们可以使用下拉事件更改任何数据属性，除了颜色。 任何帮助，将不胜感激。

Answer 1

不幸的是，我不相信仅使用plotly是不可能的：

根据github 问题：

color / symbol / linetype / size /等映射（从数据值到颜色代码）发生在 R 方面，所以一旦 plot ZA8CFDE6331BD59EB2AC96F8911IC4B666Z 被传递给浏览器，它就会丢失有关这些映射的信息恐怕这样的事情是不可能的......除非你自己做映射

备择方案

这似乎是shiny的一个很好的用例。 有一个堆栈溢出问题，向您展示了在 plotly 之外创建菜单并使用选择重新呈现 plot 的这些步骤。

此外，您可以使用 plotly.js 和 HTML 更改 plot 的颜色。 您必须将 select 元素添加到 HTML 页面，并添加事件侦听器以在更新时调用Plotly.newPlot() 。 我相信 shiny 是一个更简单的解决方案，因为它更像是一种以 R 为中心的方法。