在R Shiny的Plotly图表中，当轨迹处于legendonly状态时隐藏次Y轴

嘿，这个需求我太懂了！要实现点击图例切换第二个轨迹时，次Y轴也跟着同步显示或隐藏，我们得结合Shiny的响应式特性和Plotly的事件监听来处理，我给你调整后的代码，再一步步说清楚怎么回事：

首先是完整的可运行代码：

library(plotly)
library(shiny)
data(mtcars)

ui <- fluidPage(
  plotlyOutput("scatterPlot")
)

server <- function(input, output) {
  
  # 用响应式值跟踪次Y轴的可见状态，初始为TRUE（因为第二个轨迹默认显示）
  y2_visible <- reactiveVal(TRUE)
  
  ay <- list(overlaying = "y", side = "right", title = "Hide me please", automargin = TRUE)
  
  output$scatterPlot <- renderPlotly({
    p <- plot_ly(type = "scatter", mode = "markers") %>% 
      add_trace(data = mtcars, x = ~mpg, y = ~hp, name = "马力") %>%
      add_trace(data = mtcars, x = ~mpg, y = ~wt, yaxis = "y2", name = "车重") %>% 
      layout(legend = list(orientation = "v"),
             # 把次Y轴的可见性和响应式值绑定
             yaxis2 = modifyList(ay, list(visible = y2_visible()))) %>%
      # 注册图例点击事件，让Shiny能捕捉到这个操作
      event_register("plotly_legendclick")
    
    return(p)
  })
  
  # 监听图例点击事件，实时更新次Y轴的可见性
  observeEvent(event_data("plotly_legendclick"), {
    event_info <- event_data("plotly_legendclick")
    # 确认点击的是绑定了次Y轴的那个轨迹（这里用轨迹名称判断，更直观）
    if(event_info$name == "车重"){
      # 获取当前图表所有轨迹的状态
      plot_proxy <- plotlyProxy("scatterPlot")
      plot_data <- plotlyProxyInvoke(plot_proxy, "getData")
      # 拿到第二个轨迹的可见状态
      trace_current_state <- plot_data[[2]]$visible
      # 如果轨迹被设为legendonly（隐藏状态），就把次Y轴也隐藏；否则显示
      y2_visible(trace_current_state != "legendonly")
    }
  })
}

shinyApp(ui, server)

接下来给你拆解关键修改点：

• 我加了y2_visible这个响应式值，专门用来记录次Y轴是否该显示，初始值设为TRUE，因为默认情况下第二个轨迹是显示的。
• 在layout里用modifyList把原来的次Y轴配置ay和visible = y2_visible()合并，这样轴的可见性会跟着响应式值自动变化。
• 给图表注册了plotly_legendclick事件，这样Shiny能捕捉到用户点击图例的动作。
• 最后用observeEvent监听这个点击事件：先判断点击的是绑定次Y轴的那个轨迹（这里给轨迹加了name参数，既让图例更清晰，也方便我们精准判断），然后获取该轨迹的当前状态——如果轨迹状态是legendonly（也就是被隐藏了），就把次Y轴也设为隐藏；如果轨迹被重新显示，次Y轴也跟着出来。

这样操作起来，你点击图例里的“车重”选项，轨迹和次Y轴就会同步切换显示/隐藏啦！

备注：内容来源于stack exchange，提问作者Sam