GGPlotly: downloadHandler geben leeres Grundstück

Question

Ich habe einige Schwierigkeiten mit plotly. Ich möchte plotly als pdf herunterladen können. Doch während einige x- und y-Achse Parameter zu meinem Code hinzufügen (Ursache, wenn ich übertragen ggplot-plotly, Titel von x und y-Achse geschnitten)

Dieser Code arbeitet pdf-Datei zum Download:

library(shiny) 
library(DT) 
library(ggplot2) 
library(plotly) 


shinyApp(
    ui = fluidPage(
    fluidRow(downloadButton('downloadplot',label='Download Plot')), 
    plotlyOutput('plot1') 
), 
    server = function(input, output) { 

    testplot <- function(){ 

a <- ggplot(mtcars, aes(x = interaction(cyl, carb, lex.order = T), y = mpg,fill = interaction(cyl, carb, lex.order = T))) + 
    geom_boxplot() 

    } 

    output$plot1 <- renderPlotly({testplot()}) 

    output$downloadplot <- downloadHandler(
     filename ="plot.pdf", 
     content = function(file) { 
     pdf(file, width=12, height=6.3) 
     print(testplot()) 
     dev.off() 
     })}) 

und Zugabe dieser Code die Titel des ggplotly zu beheben fehlschlägt:

a <- ggplot(mtcars, aes(x = interaction(cyl, carb, lex.order = T), y = mpg,fill = interaction(cyl, carb, lex.order = T))) + 
    geom_boxplot() 

p <- ggplotly(a + ylab(" ") + xlab(" ")) 
x <- list(
    title = "[x]" 
) 
y <- list(
    title = "[y]" 
) 
p %>% layout(xaxis = x, yaxis = y)} 

ein leeres Grundstück gibt ...

Danke für jede Hilfe!

Answer 1

Ich habe meine Frage gelöst. Die Lösung ist nicht elegant, aber es funktioniert!

Der Trick besteht also darin, die X- und Y-Titel in renderPlotly und NICHT in testplot() Funktion zu setzen.

Allerdings müssen die x- und y-Achsentitel zusätzlich in die testplot() Funktion eingegeben werden - dies wird unsere Ausgabe als pdf sein, und die Ansicht des Diagramms erfolgt mit plotly.

Hier Code:

library(shiny) 
library(DT) 
library(ggplot2) 
library(plotly) 


shinyApp(
    ui = fluidPage(
    fluidRow(downloadButton('downloadplot',label='Download Plot')), 
    plotlyOutput('plot1') 
), 
    server = function(input, output) { 

    testplot <- function(){ 

     a <- ggplot(mtcars, aes(x = interaction(cyl, carb, lex.order = T), y = mpg,fill = interaction(cyl, carb, lex.order = T))) + 
     geom_boxplot() 

    } 

    output$plot1 <- renderPlotly({ 

     p <- ggplotly(testplot() + ylab(" ") + xlab(" ")) 
     x <- list(
     title = "[x]" 
    ) 
     y <- list(
     title = "[y]" 
    ) 
     p %>% layout(xaxis = x, yaxis = y)}) 

    output$downloadplot <- downloadHandler(
     filename ="plot.pdf", 
     content = function(file) { 
     pdf(file, width=12, height=6.3) 
     print(testplot()) 
     dev.off() 
     })})