R 闪亮->；Plotly->；轮廓->；事件_数据（）

下面是我正在做的事情。底部和右侧的线图表示主图沿各自轴的投影。

当我放大主图时，我希望投影根据xmin、xmax、ymin和ymax进行缩放，并进一步仅投影主图显示的内容，而不是始终完全投影主图

这可能吗？我尝试使用事件数据（“plot\u hover”）和事件数据（“plot\u selected”），但两者似乎都不起作用。他们都提出了零

有很多关于简单图形的文档，但对于等高线没有那么多，所以我想问一下这个

下面是我的代码的简化版本（老实说，非常粗糙）：

用户界面

服务器.r

shinyServer(function(input, output, session) {
  process.data <- reactive({
    #Do some back - end stuff
    return(df)
  })

  output$raw <- renderPlotly({
    print(.mainplot())
  })

  output$raw.x <- renderPlotly({
    .xplot()
  })

  output$raw.y <- renderPlotly({
    .yplot()
  })

  .mainplot <- function() {
    df <- data.frame(process.data())
    p <-
      plot_ly(
        df,
        x = ~ series,
        y = ~ time,
        z = ~ value,
        type = "contour",
        source = "A"
      ) %>% hide_colorbar()

    return (p)
  }

  .xplot <- function() {
    df <- data.frame(process.data())
    p <-
      plot_ly(
        df,
        x = ~ series,
        y = ~ value,
        type = 'scatter',
        mode = 'lines'
      ) %>%
      layout(xaxis = list(title = ""),
             yaxis = list(title = "", showticklabels = F))
    return(p)
  }
  .yplot <- function() {
    df <- data.frame(process.data())
    p <-
      plot_ly(
        df,
        x = ~ x,
        y = ~ y,
        type = 'scatter',
        mode = 'lines'
      ) %>%
      layout(xaxis = list(title = ""),
             yaxis = list(title = "", showticklabels = F))
    return (p)
  }

})

shinyServer（功能（输入、输出、会话）{
过程数据已解决：

p <-
      plot_ly(x = df[,2], y = df[,4]) %>%
        add_contour(x = dat@wavelength, y = dat@data$x, z = dat@data$spc, visible = TRUE) %>%
        add_markers(x = df[,2], y = df[,4], opacity = 0.01, hoverinfo="x+y") %>%
        layout(dragmode = "select")

p%
添加_等高线（x=dat@wavelength，y=dat@data$x，z=dat@data$spc，可见=真）%>%
添加_标记（x=df[，2]，y=df[，4]，不透明度=0.01，hoverinfo=“x+y”）%>%
布局（dragmode=“选择”）

p <-
      plot_ly(x = df[,2], y = df[,4]) %>%
        add_contour(x = dat@wavelength, y = dat@data$x, z = dat@data$spc, visible = TRUE) %>%
        add_markers(x = df[,2], y = df[,4], opacity = 0.01, hoverinfo="x+y") %>%
        layout(dragmode = "select")