R 在Plotly’中进行持久选择；s动画传奇

我正在尝试使用plotly in R with Shining为一些全球城市的XY数据点（x=人口，y=汽车）随时间的移动设置动画。每个城市按其所在的大陆进行分组/着色（即亚洲所有城市的颜色相同，欧洲所有城市的颜色相同，等等）。这一阶段的一切，包括动画，都已经可以很好地使用“播放”按钮和日期滑块来正确显示这些城市的结果随时间的变化

我的问题是，当设置图表动画时，我对图表图例中特定大陆的选择/取消选择不会持续。例如，如果我在plotly图表的图例中切换“Europe”，则与欧洲城市关联的所有数据点都将消失。但是，如果单击“播放”按钮运行动画，则欧洲数据点将在应保持隐藏状态时再次出现。是否有可以更改的绘图设置，以便在设置动画时不会重新显示图例中的选择

我在下面附上了两张图片，显示了这个问题

1：我已经从图例中取消选择了“欧洲”，现在它变灰了。所有欧洲数据点都如预期的那样消失了。这里还没有问题。

2：这就是问题所在。尽管图例中仍取消选择了“Europe”，但将日期滑块拖到第二天时，橙色/欧洲数据点会重新出现。有没有办法确保它们隐藏起来？

我用下面的代码复制了我的R代码

谢谢你的帮助

server.R

library("shiny")
library ("ggplot2")
library ("plotly")

setwd ("C:/Desktop")
file.names <- list.files (pattern = ".csv", recursive = TRUE)
imported <- sapply (file.names, read.csv, header = TRUE, simplify = FALSE)    
names (imported) <- gsub (".csv", "", names(imported))
names (imported) <- strptime (names(imported), "%Y%m%d")

for (i in 1:length(imported)) {
  imported[[i]]$Date <- names(imported[i])
}
imported <- do.call (rbind, imported)
imported <- as.data.frame (imported)

shinyServer(function(input, output) {
  output$chart.animate <- renderPlotly({
    chart.xy <- plot_ly()
    chart.xy <- add_markers(chart.xy, x = ~Population, y = ~Cars, color = ~Continent, frame = ~Date, ids =~City, data = imported)
    chart.xy <- animation_opts(chart.xy, redraw = FALSE)
    return (chart.xy)
  })
})

library("shiny")

shinyUI(fluidPage(
  mainPanel(
    plotlyOutput('chart.animate')
  )
))

---

在Python3中，您可以通过动画在图例条目中进行持久选择，方法是将所有条目放入数据字典中带有“legendgroup”=“[group name]”的图例组中

---

如果您将所有“亚洲”系列放入一个legendgroup（对于另一个系列也是如此），您的选择/取消选择将通过动画保留。

在Python3中，您可以通过动画在图例条目中进行持久选择，方法是将所有条目放入带有“legendgroup”=“[组名]”的图例组中在数据字典中

---

如果您将所有的“亚洲”系列放入一个legendgroup（对于其他系列也是如此），您的选择/取消选择将通过动画持续存在。

似乎是一个常见的错误，同样的问题也可以在这里找到：有趣的是，它可能是一个只有plotly的R版本的错误。Python示例中的相同类型的图表工作正常。这里的页面底部：似乎是一个一般性的bug，同样的问题也可以在这里找到：有趣的是，它可能是一个只有plotly的R版本的bug。Python示例中的相同类型的图表工作正常。此处为页面底部：