在R中保存ggtern图

Question

为了将情节保存为png或svg，应该添加什么服务器？

ggsave和ggtern一起工作吗？(这是对三元地块的to图的扩展)

下面是我试图在闪亮中所做的事情的一个最小的可重复的例子：

library(shiny)
library(ggtern)
library(tidyverse)



ui <- fluidPage(

    downloadButton("dwnld", label = "Save plot"),
    plotOutput("ternary")
)


server <- function(input, output) {
    # ternary plot via ggtern
    output$ternary <- renderPlot({
        data <- tibble(x = 0.2, y = 0.3, z = 0.5)
        plot <- ggtern(data, aes(x = x, y = y, z = z)) + geom_point(size = 8)
        print(plot)
        
    })
    
    # download the plot
    #????????
}

 
shinyApp(ui = ui, server = server)

Answer 1

你可以按以下方式进行：

myPlot <- 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({
  myPlot()
})

output[["dwnld"]] <- downloadHandler(
  filename = "myPlot.png",
  content = function(file){
    ggsave(file, myPlot())
  }
)