在RShiny应用程序中使用时,Plotly'下载为png'调整图像大小

Question

我正在使用plotly包R来显示我的shiny应用程序中的一些大图,图表显示良好的预期.但是,当我单击"下载为png"按钮时,已下载的.png已调整大小.这是这种行为的演示.

如何指定导出图的分辨率？

这是一个最小的例子,通过在下载时剪切一个非常长的标题来证明这个问题

app.R

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

ui <- fluidPage(titlePanel("Plotly Download demo"),

                plotlyOutput("demoPlotly"))


server <- function(input, output) {
  output$demoPlotly <- renderPlotly({
    #make an arbritrary graph with a long title
    p <- iris %>%
      ggplot(aes(x = Petal.Length, y = Petal.Width, color = Species)) +
      geom_point() +
      labs(title = "This is a really long title to demo my problem of plotly resizing my downloaded output")
    ggplotly(p)

  })
}

# Run the application
shinyApp(ui = ui, server = server)

下载的图形如下所示:

Answer 1

迈克尔，

看一眼plotly_IMAGE()。[版本 4.7.1]。该函数允许您指定保存图像的宽度和高度。例如 800 x 600。

关于您的示例，我提供了一个示例，说明如何修改布局以适应标题换行。请注意边距和填充的变化。我还插入了一个调用来plotly_IMAGE提供其用法的简化示例 - 它会减慢速度，因为它与绘图生成一致。我建议您添加一个按钮并与图像显示分开。

希望这可以帮助

照顾好T。

先决条件 - Plotly 凭证：

要使用这个情节示例，您需要注册并获取密钥plotly api。获得后，您需要将这些条目添加到您的~/.Renviron文件中。 参考： https: //plot.ly/r/getting-started/

.Renviron 文件条目示例

plotly_username="xxxxx"
plotly_api_key="xxxxxx"

示例代码

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

wrapper <- function(x, ...) {
  paste(strwrap(x, ...), collapse = "\n")
}

# Example usage wrapper(my_title, width = 20)

my_title <- "This is a really long title to demo my problem of plotly resizing my downloaded output"

ui <- fluidPage(titlePanel("Plotly Download demo"), plotlyOutput("demoPlotly"))

pal <- c("blue", "red", "green")
pal <- setNames(pal, c("virginica", "setosa", "versicolor"))

layout <- list(title = wrapper(my_title, width = 60),
               xaxis = list(title = "Petal Length"),
               yaxis = list(title = "Petal Width"),
               margin = list(l = 50, r = 50, b = 100, t = 100, pad = 4))

server <- function(input, output) {
  output$demoPlotly <- renderPlotly({
    # make an arbitrary graph with a long title
    p <- iris %>%
      plot_ly(x = ~Sepal.Length,
              y = ~Petal.Width,
              color = ~Species,
              colors = pal,
              mode = "markers",
              type = "scatter") %>%
      layout(autosize = F,
             title = layout$title,
             xaxis = layout$xaxis,
             yaxis = layout$yaxis,
             margin = layout$margin)
    p$elementId <- NULL
    # Example usage of plotly image
    plotly_IMAGE(p, 
                 width = 800, 
                 height = 600, 
                 format = "png", 
                 scale = 1, 
                 out_file = "output.png")
    p
  })
}

# Run the application
shinyApp(ui = ui, server = server)

屏幕截图图像 - 屏幕截图

情节保存 - 屏幕点击

plotly_IMAGE() 保存图像输出 800 x 600