如何区分plotly::event_data来源？解决Shiny多图Y轴同步无限循环问题

问题背景 #

需要创建一个Shiny应用，包含两个上下排列的Plotly图表（p0和p1），要求Y轴始终保持同步，但因为每个图表需要独立标题，无法使用plotly::subplot(..., shareY = TRUE)方案。现有代码在用户调整其中一个图表的Y轴时，会触发两个图表的relayout事件无限循环，而用reactiveVal存储上次事件数据的临时方案，在用户重复相同交互时会失效。

核心原因 #

当通过plotlyProxyInvoke调用另一个图表的relayout方法时，会触发该图表的plotly_relayout事件，这个事件又会反过来触发原图表的更新，形成无限循环。临时方案的问题在于，无法区分用户手动触发的事件和代码自动触发的事件，导致相同操作被误拦截。

解决方案 #

Plotly的event_data中，用户手动触发的事件会包含._triggered字段，而通过代码调用relayout触发的事件则没有这个字段。我们可以通过检查这个字段，只响应用户手动触发的事件，从而避免循环。

完整修正代码 #

library(shiny)
library(plotly)

N <- 10
df <- data.frame(time = Sys.time() + seq_len(N), ind = seq_len(N), x0 = runif(N), x1 = 10 + runif(N))

ui <- fluidPage(
  plotlyOutput("p0"),
  plotlyOutput("p1"),
)

server <- function(input, output, session) {
  output$p0 <- renderPlotly({
    plot_ly(
      df,
      source = "p0",
      type = "scatter",
      mode = "markers",
      x=~time,
      y=~x0,
      title = "图表p0标题"  # 添加独立标题
    ) |> toWebGL()
  })
  output$p1 <- renderPlotly({
    plot_ly(
      df,
      source = "p1",
      type = "scatter",
      mode = "markers",
      x=~time,
      y=~x1,
      title = "图表p1标题"  # 添加独立标题
    ) |> toWebGL()
  })
  
  p0proxy <- plotlyProxy("p0", session = session)
  p1proxy <- plotlyProxy("p1", session = session)
  
  # 响应p0的用户手动relayout事件
  observeEvent(event_data("plotly_relayout", source = "p0", priority = "event"), {
    ed <- event_data("plotly_relayout", source = "p0", priority = "event")
    # 只处理用户手动触发的事件（存在._triggered字段）
    if (!is.null(ed[["._triggered"]])) {
      # 去除._triggered字段，避免传递给另一个图表
      ed_clean <- ed[!names(ed) %in% "._triggered"]
      plotlyProxyInvoke(p1proxy, "relayout", ed_clean)
    }
  })
  
  # 响应p1的用户手动relayout事件
  observeEvent(event_data("plotly_relayout", source = "p1", priority = "event"), {
    ed <- event_data("plotly_relayout", source = "p1", priority = "event")
    if (!is.null(ed[["._triggered"]])) {
      ed_clean <- ed[!names(ed) %in% "._triggered"]
      plotlyProxyInvoke(p0proxy, "relayout", ed_clean)
    }
  })
  
}

shinyApp(ui, server, options = list(launch.browser = TRUE))

代码说明 #

• 为两个图表添加了独立标题，满足需求；
• 在每个observeEvent中，先检查事件是否包含._triggered字段，只有用户手动操作触发的事件才会执行后续的联动更新；
• 传递给另一个图表的relayout参数会剔除._triggered字段，避免干扰目标图表的事件判断；
• 这种方案彻底避免了代码触发的事件形成循环，同时不会拦截用户的重复操作。

内容的提问来源于stack exchange，提问作者Noskario