R Shiny中实现ggtern三元图导出为PNG/SVG的方法咨询

ggsave与ggtern的兼容性 #

ggtern生成的绘图对象继承了ggplot2的标准类，ggsave完全兼容该类图形的导出，不需要额外适配操作。

需要补充的代码 #

优化建议 #

首先建议你将绘图逻辑封装为响应式对象，避免渲染和导出时重复编写相同的绘图代码，降低维护成本。

完整server逻辑补全代码 #

替换你现有server部分的标问号的代码段即可：

server <- function(input, output) {
  # 封装绘图逻辑为响应式对象
  tern_plot <- reactive({
    data <- tibble(x = 0.2, y = 0.3, z = 0.5)
    ggtern(data, aes(x = x, y = y, z = z)) + geom_point(size = 8)
  })

  # 渲染三元图
  output$ternary <- renderPlot({
    print(tern_plot())
  })
    
  # 下载逻辑
  output$dwnld <- downloadHandler(
    filename = function() {
      # 自动生成带日期的文件名，匹配选择的格式
      paste0("ternary_plot_", Sys.Date(), ".", input$dwnld_format)
    },
    content = function(file) {
      ggsave(
        file,
        plot = tern_plot(),
        width = 8,
        height = 7,
        dpi = 300,
        device = input$dwnld_format
      )
    }
  )
}

UI配套调整（可选） #

如果需要让用户自主选择导出格式，可在UI部分增加格式选择下拉框，调整后的UI代码如下：

ui <- fluidPage(
  selectInput("dwnld_format", "导出格式：", choices = c("PNG" = "png", "SVG" = "svg")),
  downloadButton("dwnld", label = "保存图片"),
  plotOutput("ternary")
)

如果你不需要用户选择格式，只需要固定导出某一种，直接把代码里的input$dwnld_format替换为对应的"png"或"svg"即可，不需要修改UI。

内容的提问来源于stack exchange，提问作者psych0groov3