在R中手动缩放/调整PNG导出

我有一个简短的问题。我已经编写了一个在shinyapps.io上运行的应用程序。页面的一部分通过ggplot2生成了一个图形，我为用户提供了下载功能

导出文件时，图像将向右拉伸到整个png大小的边界。我的标题、x/y轴标题和图例都位于框架边缘

是否有任何快速方法可以通过从页面框架向内缩放图像来居中，或者为整个图形图像添加填充和/或边距

这是我的出口代码：

output$downloadPlot <- downloadHandler(
      filename = function() { paste(input$get.id," _Chart", '.png', sep='') },
      content = function(file) {
        device <- function(..., width, height) grDevices::png(..., width = width, height = height, res = 300, units = "in")
        ggsave(file, plot = p(), device = device,scale=1.95)
      }
    )

---

output$downloadPlot将闪亮的步骤放在一边，您是否在询问绘图是否可以在面板周围有边框？然后，ggsave with.png将保留面板“居中”的效果，没有文字边框，尽管这可能对解决方案有所帮助。当我打印图形时，有时标签会被剪掉，因为它们非常接近PNG框架的边缘。我想在图表的所有特征周围创建一些填充，这样，比如说在一张8.5 x 11的纸上，标签和纸边之间有1/4”的间隙。为什么不使用缩放来扩展x轴？这样，标签就有了一些额外的空间。缩放x连续（限制=等）@律师：我会调查的，谢谢你的反馈。我最初对此表示怀疑的是，我更担心标题和图例。我不认为移动轴会改善这一方面。有了标题，您可以始终使用换行符\n；有了图例，您可以创建多行。