R在Plotly中禁用图层

Question

我有一个有多条线的图，我想用一些活动层来初始化它。可能吗？这是数据的示例：

    set.seed(101)
    df <- data.frame(x = seq(1,20,1),
                     y1 = runif(20),
                     y2 = runif(20),
                     y3 = runif(20),
                     y4 = runif(20))
    
    plot_ly(df, x = ~x) %>%
      add_lines(y = ~y1, name='y1', line = list(color = 'rgba(255,0,0,1')) %>%
      add_lines(y = ~y2, name='y2', line = list(color = 'rgba(0,255,0,1')) %>%
      add_lines(y = ~y3, name='y3', line = list(color = 'rgba(106,90,205,1')) %>%
      add_lines(y = ~y4, name='y4', line = list(color = 'rgba(0,0,255,1')) %>%
        layout(
        xaxis = list(title = "x", domain = c(0,1), tickmode = 'auto'),
        yaxis = list(title = 'y', side = "left", color = "black", position = 0,
                     anchor = 'free', range = c(0,1), dtick = 1),
        showlegend = T
    )

我想要的是生成一个包含所有线条的图，但是例如关闭 y3 和 y4 并仍然允许用户打开它（此图是闪亮应用程序的一部分）。

有可能吗？

谢谢！

Answer 1

您需要为要隐藏的痕迹设置visible = "legendonly"：

library(plotly)

set.seed(101)
df <- data.frame(x = seq(1,20,1),
                 y1 = runif(20),
                 y2 = runif(20),
                 y3 = runif(20),
                 y4 = runif(20))

plot_ly(df, x = ~x) %>%
  add_lines(y = ~y1, name='y1', line = list(color = 'rgba(255,0,0,1')) %>%
  add_lines(y = ~y2, name='y2', line = list(color = 'rgba(0,255,0,1')) %>%
  add_lines(y = ~y3, name='y3', line = list(color = 'rgba(106,90,205,1'), visible = "legendonly") %>%
  add_lines(y = ~y4, name='y4', line = list(color = 'rgba(0,0,255,1'), visible = "legendonly") %>%
  layout(
    xaxis = list(title = "x", domain = c(0,1), tickmode = 'auto'),
    yaxis = list(title = 'y', side = "left", color = "black", position = 0,
                 anchor = 'free', range = c(0,1), dtick = 1),
    showlegend = TRUE
  )

要获取有关可用跟踪属性的更多信息，请使用：

schema()

并按如下方式导航：

对象 ► 轨迹 ► 散点 ► 属性

R在Plotly中禁用图层

R Disable layer in Plotly

r

shiny

plotly

r-plotly