shinyApp 中的 R svgPanZoom 在 Web 和 Rstudio 中显示不同

Question

我使用 R 和包 svgPanZoom、svglite、ggplot2 和 shiny 画了一幅画。但是，它在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")

和server.R

p = ggplot(blah blah)

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

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

显然加载库(svglite) 和库(svgPanZoom)

好吧，反正对我有用

shinyApp 中的 R svgPanZoom 在 Web 和 Rstudio 中显示不同

R svgPanZoom within shinyApp display different in the Web and Rstudio

svg

r

shiny

svgpanzoom