使用plotly::plotlyProxyInvoke更新子图单图失败：所有子图同步更新

你的问题核心是没有正确构造plotlyProxyInvoke("update")的参数格式，以及对轨迹索引的传递方式有误，导致更新操作应用到了所有子图的轨迹上。

问题原因 #

1. plotlyProxyInvoke("update")的参数顺序为：(data, layout, indices)，其中data需要是列表的列表——每个子列表对应一个目标轨迹的更新数据（包含x/y等字段）。
2. 子图的每个轨迹在整个Plotly对象里有独立索引：你的三个子图（mpg/hp/disp）默认按name的字母顺序生成轨迹，索引依次为0=disp、1=hp、2=mpg，需准确指定目标轨迹的索引。

修正后的代码 #

将observeEvent(input$update, {...})部分替换为以下代码：

observeEvent(input$update, {
  # 生成更新后的hp数据
  cars2 <- cars %>% 
    filter(name == "hp") %>% 
    rows_update(tibble(carname = input$carName, value = input$newValue))

  proxy <- plotlyProxy("myplot", session = shiny::getDefaultReactiveDomain())

  # 正确调用plotlyProxyInvoke
  proxy %>% plotlyProxyInvoke(
    "update",
    # data参数：每个子列表对应一个轨迹的更新数据
    list(list(y = cars2$value, x = cars2$carname)),
    # layout参数：无需更新布局则传空列表
    list(),
    # indices参数：指定要更新的轨迹索引（这里hp对应的是索引1）
    as.integer(1)
  )
})

验证轨迹索引的方法 #

如果不确定目标子图的轨迹索引，可在renderPlotly中添加打印代码，查看每个轨迹的名称和索引：

output$myplot <- renderPlotly({
  pp <- cars %>%
    group_by(name) %>%
    do(p =
         plot_ly(data = .) %>%
         add_bars(
           x = ~carname,
           y = ~value
         ) %>%
         layout(showlegend = F, yaxis = list(title = ~unique(name)))
    ) %>%
    subplot(nrows = 3, titleY = TRUE, titleX = FALSE, shareX = FALSE, shareY = FALSE)  
  
  # 打印所有轨迹的名称和索引
  lapply(seq_along(pp$x$data), function(i) {
    cat(sprintf("轨迹索引%d：%s\n", i-1, pp$x$data[[i]]$name))
  })
  
  pp
})

运行后R控制台会输出类似内容：

轨迹索引0：disp
轨迹索引1：hp
轨迹索引2：mpg

以此确认hp对应的轨迹索引，确保更新目标准确。

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