r - 框架（动画）不考虑更新菜单选择的参数

Question

我发布了关于我遇到的问题的代表。

我尝试将按钮和动画结合起来。按钮是导出和导入。

让我们单击 IMPORT 按钮并播放动画。统计数据将返回 EXPORT，色阶返回橙色。如果我移动句点，同样的问题，情节使用默认参数。

如何使按钮和框架“通信”？换句话说，将选择的 updatemenus 选项传递给动画？

谢谢您的帮助。

library(tidyverse)
library(plotly)

Trade=data.frame(PERIOD=c(2017:2020),
             CODE=rep("USA",4),
             EXPORT=c(5761404,6908563,11071009,9160132),
             IMPORT=c(6378023,6730260,6461171,3283063))

colorscale1=list(c(0,"white"),c(1,"#efaa22"))
colorscale2=list(c(0,"white"),c(1,"#902147"))

plot_geo(Trade) %>%
  add_trace(locations = ~CODE,
            frame = ~PERIOD,
            z = ~EXPORT,
            zmin = 0,
            zmax = max(Trade$EXPORT),
            color = ~EXPORT,
            colorscale = colorscale1
  ) %>%
  layout(
  
  updatemenus = list(
    list(active=0,type="buttons",
         buttons = list(
           list(method = "restyle",
                args = list(list(z=list(~EXPORT),color=list(~EXPORT),
                                 zmax=list(max(Trade$EXPORT)),
                                 zmin=list(0),
                                 colorscale=list(colorscale1),
                                 colorbar.title="EXPORT")),
                label = "Export"),
           list(method = "restyle",
                args = list(list(z=list(~IMPORT),color=list(~IMPORT),
                                 zmax=list(max(Trade$IMPORT)),
                                 zmin=list(0),
                                 colorscale=list(colorscale2),
                                 colorbar.title="IMPORT")),
                label = "Import")

         )
        )
  )
  )

标签： rr-plotly