R Shiny&；plotly：在较大的模式窗口中重复使用绘图&；控制字体大小

我们可以通过plotlyProxy()修改现有的绘图对象，而无需重新渲染.在本例中，我们需要调用relayout--这比重新呈现整个小部件更快:

library(shiny)
library(plotly)

ui <- fluidPage(column(4, plotlyOutput("plot_normal")),
                actionButton("zoom", "zoom"))

server <- function(input, output, session) {
  # render plot once for both outputs
  output$plot_zoom <- output$plot_normal <- renderPlotly({
    plot <- plot_ly(
      data = iris,
      x = ~ Sepal.Length,
      y = ~ Sepal.Width,
      type = 'scatter',
      mode = 'markers',
      color = ~ Species,
      marker = list(size = 10, opacity = 0.7)
    ) %>% layout(
      xaxis = list(
        tickfont = list(size = 15),
        titlefont = list(size = 18)
      ),
      yaxis = list(
        tickfont = list(size = 15),
        titlefont = list(size = 18)
      )
    )
  })
  
  zoom_proxy <- plotlyProxy("plot_zoom", session)
  
  outputOptions(output, "plot_zoom", suspendWhenHidden = FALSE)
  
  observeEvent(input$zoom, {
    showModal(modalDialog(plotlyOutput("plot_zoom", height = "75vh"), size = "l", easyClose = TRUE))
    # modify plot shown in modalDialog
    plotlyProxyInvoke(zoom_proxy, "relayout", list(
      xaxis = list(
        tickfont = list(size = 22),
        titlefont = list(size = 22)
      ),
      yaxis = list(
        tickfont = list(size = 22),
        titlefont = list(size = 22)
      )
    ))
  })
}

shinyApp(ui, server)

顺便说一句:你知道是bslib::card()还是bs4Dash::box()？两者都是可扩展的--但是，我不确定它们是否可以与{shinydashboard}一起使用.

PS:在library(DT)中有一个等同的功能，称为dataTableProxy().

Edit:上述方法的模块化版本:

library(shiny)
library(plotly)

# plots could be generated in the server() function and wrapped in reactive({}) if needed
plot1 <- plot_ly(
  data = iris,
  x = ~ Sepal.Length,
  y = ~ Sepal.Width,
  type = 'scatter',
  mode = 'markers',
  color = ~ Species,
  marker = list(size = 10, opacity = 0.7)
) %>% layout(
  xaxis = list(
    tickfont = list(size = 15),
    titlefont = list(size = 18)
  ),
  yaxis = list(
    tickfont = list(size = 15),
    titlefont = list(size = 18)
  )
)

plot2 <- plot_ly(x = 1:10, y = 1:10, type = "scatter", mode = "lines")

plotUI <- function(id) {
  tagList(
    column(5, plotlyOutput(NS(id, "plot_normal"))),
    column(1, actionButton(NS(id, "zoom"), "zoom"))
  )
}

plotServer <- function(id, plotly_object) {
  moduleServer(id, function(input, output, session) {
    # render plot once for both outputs
    output$plot_zoom <- output$plot_normal <- renderPlotly({
      plotly_object
    })
    
    outputOptions(output, "plot_zoom", suspendWhenHidden = FALSE)
    
    zoom_proxy <- plotlyProxy("plot_zoom", session)
    
    observeEvent(input$zoom, {
      showModal(modalDialog(plotlyOutput(NS(id, "plot_zoom"), height = "75vh"), size = "l", easyClose = TRUE))
      # modify plot shown in modalDialog
      plotlyProxyInvoke(zoom_proxy, "relayout", list(
        xaxis = list(
          tickfont = list(size = 22),
          titlefont = list(size = 22)
        ),
        yaxis = list(
          tickfont = list(size = 22),
          titlefont = list(size = 22)
        )
      ))
    })
  })
}

plotApp <- function() {
  ui <- fluidPage(
    plotUI("my1stplot"),
    plotUI("my2ndplot")
  )
  server <- function(input, output, session) {
    plotServer(id = "my1stplot", plotly_object = plot1)
    plotServer(id = "my2ndplot", plotly_object = plot2)
  }
  shinyApp(ui, server)  
}

plotApp()