R Shiny：重新布局情节注释

Question

如果用户单击闪亮应用程序中的按钮，我想要一个情节图来更改注释。 我不知道为什么这不起作用：

library(shiny)
library(plotly)

d <- data.frame(x = c(1,2,3), y = c(9,99,999))


ui <- fluidPage(
  plotlyOutput("plot"),

actionButton("button", "toggle visibility"))

server <- function(input, output) {

output$plot <- renderPlotly({

plot_ly(d)%>%
  add_lines(y=d$y, x= d$x)%>%
  layout(annotations = list(x = 2, y= 99 , text = "hi"))})

  observeEvent(input$button, {
    plotlyProxy("plot", session= shiny::getDefaultReactiveDomain()) %>%
      plotlyProxyInvoke("relayout", list(annotations= list(x = 2, y= 99 , 
text = "ho")))})}

shinyApp(ui, server)

Answer 1

这不是在plotly 中使用relayout 的方式。请参阅下面使用 relayout 的示例。

我更喜欢为此目的使用原生闪亮按钮，因为它提供了更大的灵活性。以下是实现 hi-ho 切换的方法。

shiny方式

library(shiny)
library(plotly)

d <- data.frame(x = c(1,2,3), y = c(9,99,999))


ui <- fluidPage(
  plotlyOutput("plot"),
  
  actionButton("button", "toggle visibility"))

server <- function(input, output) {
  
  output$plot <- renderPlotly({
    p <- plot_ly(d)%>%
      add_lines(y=d$y, x= d$x)
    if (is.null(input$button) | (input$button%%2 == 0)) {
      p <- p %>% layout(annotations = list(x = 2, y= 99 , text = "hi"))
    } else {
      p <- p %>% layout(annotations = list(x = 2, y= 99 , text = "ho"))
    }
    p
  })
}

shinyApp(ui, server)

不过，在这种情况下，让relayout 功能工作很简单，尽管它确实需要一个额外的按钮。

plotlyrelayout方式

library(shiny)
library(plotly)

d <- data.frame(x = c(1,2,3), y = c(9,99,999))


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

server <- function(input, output) {
  output$plot <- renderPlotly({
    updatemenus <- list(
      list(
        active = -1,
        type = 'buttons',
        buttons = list(
          list(
            label = "hi",
            method = "relayout",
            args = list(list(annotations = list(list(x = 2, y= 99 , text = "hi"))))), 
          list(
            label = "ho",
            method = "relayout",
            args = list(list(annotations = list(list(x = 2, y= 99 , text = "ho")))))
          )
      )
    )
    p <- plot_ly(d) %>%
      add_lines(y=d$y, x= d$x) %>% 
      layout(updatemenus = updatemenus)
    p
  })
}

shinyApp(ui, server)

Answer 2

我相信所有需要更改代码以使其正常工作的方法是在您的 plotly 代理重新布局代码中围绕已定义的注释列表包装另一个列表。我最近发现这个递归列表结构是使用重新布局操作注释所需要的全部 - 您可以查看我对与同一问题相关的另一个 SO 问题的回答，但上下文略有不同：https://stackoverflow.com/a/70610374/17852464

    library(shiny)
    library(plotly)
    
    d <- data.frame(x = c(1,2,3), y = c(9,99,999))
    
    ui <- fluidPage(
      plotlyOutput("plot"),
      
      actionButton("button", "toggle visibility"))
    
    server <- function(input, output) {
    
      output$plot <- renderPlotly({
        plot_ly(d)%>%
          add_lines(y=d$y, x= d$x)%>%
          layout(annotations = list(x = 2, y= 99 , text = "hi"))
        })
      
      observeEvent(input$button, {
        plotlyProxy("plot", session= shiny::getDefaultReactiveDomain()) %>%
          plotlyProxyInvoke("relayout", list(annotations= list(list(x = 2, y= 99 , 
                                                               text = "ho"))))})}
      
    }
    
    shinyApp(ui, server)