如何保存高质量的绘图？

Question

我在plotly中绘制的每个图形在我保存它的那一刻之前都看起来很棒，所以图像看起来有点粗糙，如果它有意义的话，只是质量很差。有人知道如何以高质量保存它吗？您可以使用此基本图表作为示例。

library(plotly)

x <- c(1:100)
random_y <- rnorm(100, mean = 0)
data <- data.frame(x, random_y)

p <- plot_ly(data, x = ~x, y = ~random_y, type = 'scatter', mode = 'lines')

非常感谢。

Answer 1

如果您像我一样尝试在脱机模式下使用Plotly，我建议您执行以下步骤：

首先，另存为SVG：

fname = "/home/me/output"
plot(fig, filename=fname, image='svg', image_filename=fname)

然后在浏览器中打开超文本标记语言（名为output.html），它会提示您保存SVG（这是一个令人沮丧的步骤，但目前没有办法用Ploly绕过它）。

然后，使用cairosvg使用更好的缩放将SVG转换为PNG。在这里看到我的另一个答案。我可以在使用python内部的cairosvg模块时指定缩放吗

Answer 2

彼得·高尔特尼提供的答案给我的方框图带来了一个错误。

这两种方法可能适用于更多情况，并使用htmlwidgets:：onRender（）提高图像质量。

备选案文1。正如@chinsoon12建议的那样，保存为SVG。这段代码将打开网络浏览器，然后使浏览器下载图像。请注意，将查看器设置为空将停止RStudio查看器窗格的工作，因此您需要保存它，保存绘图图像，然后还原它。

library(htmlwidgets)

# Save viewer settings (e.g. RStudio viewer pane)
op <- options()

# Set viewer to web browser
options(viewer = NULL)

# Use web browser to save image
p %>% htmlwidgets::onRender(
  "function(el, x) {
  var gd = document.getElementById(el.id); 
  Plotly.downloadImage(gd, {format: 'svg', width: 600, height: 800, filename: 'plot'});
  }"
 )

# Restore viewer to old setting (e.g. RStudio)
options(viewer = op$viewer)

备选案文2。您可以保存为PNG并指定更高的分辨率。您可能应该增加线条粗细、字体等。对于这种方法。

library(htmlwidgets)

# Save viewer settings (e.g. RStudio viewer pane)
op <- options()

# Set viewer to web browser
options(viewer = NULL)

# Use web browser to save image
p %>% htmlwidgets::onRender(
  "function(el, x) {
  var gd = document.getElementById(el.id); 
  Plotly.downloadImage(gd, {format: 'png', width: 1200, height: 1600, filename: 'plot'});
  }"
 )

# Restore viewer to old setting (e.g. RStudio)
options(viewer = op$viewer)

Answer 3

至少在Plotly v4中。7.1您可以将图形导出为SVG（因为这是一种矢量图形格式，质量非常高）。

为此，您需要安装包Rselenium。然后，您可以如下所示使用Ploly的导出函数（在本例中使用Chrome作为Selenium驱动程序）：

if ( !require(RSelenium) ) {
  install.packages("RSelenium", repos = "https://cloud.r-project.org/")
}

p %>%
  export(file = "filename.svg",
         selenium = RSelenium::rsDriver(browser = "chrome"))

这将下载图表作为filename.svg到您的默认下载目录（~/Download在许多Linux发行版或%USERPROFILE%\Download在Windows上）。如果您想将SVG下载到当前的R工作目录，您需要将几个选项传递给Selenium驱动程序（在本例中Chrome）：

p %>%
  export(file = "filename.svg",
         selenium = RSelenium::rsDriver(browser = "chrome",
                                        extraCapabilities = list(
                                          chromeOptions = 
                                            list(prefs = list(
                                              "profile.default_content_settings.popups" = 0L,
                                              "download.prompt_for_download" = FALSE,
                                              "download.default_directory" = getwd())
                                            ))))

一个更复杂的自定义导出功能，允许设置导出SVG的宽度和高度（包括可选的PDF和PNG转换），可以在以下要点中找到：https://gist.github.com/salim-b/32c4370cee4ac0a3fbfef13a9ce98458