Question

我正在尝试使用带有串扰的图表来显示多个时间序列的动态图表。根据复选框是否选中，我希望时间序列显示在图表上或不显示。在下面的代码中，我在同一个数据帧（df_final）中创建了两次系列1和2。到目前为止我有两个问题：

如果未选中任何复选框，则仍会显示时间序列图表
选中这两个复选框时，而不是显示两次系列中，代码只考虑1个唯一的时间序列。

我不知道如何改进上述任何一个想法？

另外，我不确定我使用的是正确的工具（串扰等）。欢迎任何其他建议。

library(plotly)
library(crosstalk)

#Create two identical dataframe
df_1 <- economics
df_2 <- economics

#Add a key to each dataframe to dissociate the two time series
df_1$ts <- 1
df_2$ts <- 2

#Modify the first dataframe
df_2$psavert <- economics$psavert + 1

df_final <- rbind(df_1, df_2)

shared_df_final <- SharedData$new(df_final)

bscols(
       list(filter_checkbox("Time series", "Time series", shared_df_final, ~ts, inline = TRUE)),
       plot_ly(data = shared_df_final, x = ~date, height = 700) %>%
         add_lines(y = ~df_final$psavert, line = list(color = "#00526d", width = 1),
                   hoverinfo = "text", text = "ts")
)

Answer 1

您是否正在寻找类似的东西：

plot_ly() %>%
  add_lines(data = df_1, x= ~date, y = ~psavert, name = "First") %>%
  add_lines(data = df_2, x= ~date, y = ~psavert, name = "Second") %>%
  layout(
    updatemenus = list(
      list(
        y = 0.8,
        type= 'buttons',
        buttons = list(
          list(method = "restyle",
               args = list("visible", list(TRUE, TRUE)),
               label = "Both"),
          list(method = "restyle",
               args = list("visible", list(TRUE, FALSE)),
               label = "First"),

          list(method = "restyle",
               args = list("visible", list(FALSE, TRUE)),
               label = "Second")))
    )
  )

使用Crosstalk管理多个时间序列并使用

1 个答案: