R svgPanZoom在shinyApp中的显示方式与shinyApp和Rstudio不同

Question

我用R绘制了一幅svgPanZoom、svglite、ggplot2和闪亮包的图片。但是，它可以在Rstudio上正确显示，但不能在Web上显示。有什么解决办法吗？请运行以下代码以获得详细信息。

library(shiny)
library(svglite)
library(svgPanZoom)
library(ggplot2)

data<-data.frame(x=1:50,y=1:50)
x_position<-1:50
y_position<-1:50
ui <- pageWithSidebar(
  headerPanel(""),
  sidebarPanel(),
  mainPanel(

    column(width=12,svgPanZoomOutput(outputId = "main_plot",width=600,height=450))

))

server = shinyServer(function(input, output) {
  output$main_plot <- renderSvgPanZoom({
    p <- ggplot(data, aes(x = x, y = y)) + geom_point()

    svgPanZoom(
      svglite:::inlineSVG(show(p))
      , controlIconsEnabled = T)
  })
})

shinyApp(ui,server)

R工作室：

​

网站：

​

Answer 1

最后，我尝试了包"SVGAnnotation“，幸运地解决了这个问题。

Answer 2

我也有类似的问题，很容易就解决了。这里是ui.R的片段：

svgPanZoomOutput(outputId = "betaPlot", height = "800px")

和服务器。

p = ggplot(blah blah)

    svgPanZoom(
  svglite::stringSVG(print(p), standalone = F),
  controlIconsEnabled = T, viewBox = FALSE
)

外部浏览器需要的是viewBox = FALSE，您需要在ui.R中调整图形的高度，否则控件就不会显示。

显然，加载库(Svglite)和库(SvgPanZoom)

不管怎么说，这对我来说很管用