从 R 捕获图形输出/绘图并将它们保存以供以后放大/缩小 [关闭]

Question

现在，我正在使用 R 和 Shiny 创建一个工作流工具，但我有兴趣创建某种功能来“保存”作为数据分析等过程的一部分创建的图表。

代码不是为了方便用户在我在 web 应用程序上的 GUI 中保存他们自己的图形，但 我想知道 R 是否有能力“捕捉”正在呈现的图形，或者也许设备，然后将它们保存到一个向量或设备数组中以供以后提取。最好可以放大或缩小这些图形——我的大多数图形都在 ggplot2 或基本图形包中.

理想的过程如下：

• 我绘制了两个图表，如果我在我正在进行数据分析的模块中调整它们的大小，它们会调整大小。
• 当我完成某个流程后，我将能够将图表保存到某个外部变量中。
• 稍后，当我查看图表时，我可以调整它们的大小和质量。
• 最后，当我满意时，我应该能够下载所有这些（但我确信这已经是可能的——这不是问题的一部分）。

编辑：现在代码中的情节如下所示：

observeEvent(input$outlier_zmedian.graph_density, {
  env <- module_env$outlier_zmedian

  if(!is.null(env$rval$outlier_rw)) {
    withProgress(message='Graphing smooth density plot...', {
      env$rval$density <-
        ggplot(env$ggdat) + geom_density(aes(color=sample, x = value)) +
        xlab("Counts") + ylab("Density") +
        ggtitle("Density Plot of Retained Data")

    })
  } else {
    env$rval$density <- NULL
  }
})

然后，使用 output$density_plot 回调中的另一个 print() 语句将 env$rval$density 变量打印到屏幕上。

我想知道如何最大限度地减少更改此代码和系统并使其用户可以简单地下载图表或，将图表保存到程序的另一部分，以后可以访问以更改图形属性，例如大小、质量等。

Answer 1

你有几个选择。

1) 使用ggvis 包中的图表

如果您在server.r 和ggvisOutput 中使用bind_shiny 函数，在ui.r 中，您的图表右上角将有一个小齿轮，可以让您将绘图下载为SVG或PNG格式。

2) 使用来自shiny 包的plotPNG

这个函数只是创建一个 png 文件。

3) 使用 downlaodButton 和 downloadHandler from shiny pacakge

这适用于任何类型的情节和多种格式。在ui.r 有这样的东西：

downloadButton(outputId="MYyraphDownload", label="Save Graph (.jpg)")

在server.r 中这样做：

output$densGraphDownload<-downloadHandler(
  filename=function(){paste(GraphName(), ".jpeg", sep="")}, 
  content=function (file){
    jpeg(file,width=15,height=6,units="in",res=300, quality=100)
    print(MyPlot())
    dev.off()
  }
)

此示例假定GraphName() 是一个reactive，其中包含应该是您正在制作的文件名的文本，MyPlot() 是一个reactive，其中包含要保存的实际绘图。此示例生成一个 .jpeg，但您可以将其更改为 R 可以处理的任何其他内容。