闪亮的仪表板图放大

Question

我是发光仪表板的新手。 我创建了一个非常简单的散点图，希望将其叠加到png图像上。 我需要一种方法来放大和缩小散点图和图像。

当前，放大和缩小适用于geom_points，但不适用于图像。

我按照本教程的代码制作了代码：

https://shiny.rstudio.com/gallery/plot-interaction-zoom.html

library(ggplot2)





if (!requireNamespace("BiocManager", quietly = TRUE))
   install.packages("BiocManager")

   BiocManager::install("EBImage")
   library("EBImage")

   x <- readImage("U:/Sample/floor plan sample.png")

   # Scale to a specific width and height
   LayoutJPG <- resize(x, w = 500, h = 500)
   display(LayoutJPG)


   ui <- fluidPage(
     fluidRow(
       column(width = 12, 
              plotOutput("plot1", height = 300,
                  dblclick = "plot1_dblclick",
                  brush = brushOpts(
                    id = "plot1_brush",
                    resetOnNew = TRUE
                  )
              )
       )

     )
   )

   server <- function(input, output) {

     ranges <- reactiveValues(x = NULL, y = NULL)

     output$plot1 <- renderPlot({
       ggplot(mtcars, aes(wt, mpg)) +
         annotation_custom(grid::rasterGrob( LayoutJPG ,
                                      width = unit(1,"npc"),
                                      height = unit(1,"npc")),
                    -Inf, Inf, -Inf, Inf) +

  geom_point() +
  coord_cartesian(xlim = ranges$x, ylim = ranges$y, expand = FALSE)
     })

     # When a double-click happens, check if there's a brush on the plot.
     # If so, zoom to the brush bounds; if not, reset the zoom.
     observeEvent(input$plot1_dblclick, {
       brush <- input$plot1_brush
       if (!is.null(brush)) {
         ranges$x <- c(brush$xmin, brush$xmax)
         ranges$y <- c(brush$ymin, brush$ymax)

       } else {
         ranges$x <- NULL
         ranges$y <- NULL
       }
     })



   }

          shinyApp(ui, server)

如上所述，当前，放大和缩小适用于geom_points，但不适用于图像。