Как сохранить сюжет в виде изображения на диске?

Я строю простую линейную регрессию, используя R. Я хотел бы сохранить это изображение в формате PNG или JPEG, возможно ли сделать это автоматически? (через код)

Есть два разных вопроса: во-первых, я уже смотрю на график на своем мониторе и хотел бы сохранить его как есть. Во-вторых, я еще не сгенерировал график, но я хотел бы сохранить его непосредственно на диск, когда я выполню свой код построения.

Есть два тесно связанных вопроса, и ответ на каждый.

1. Изображение будет сгенерировано в будущем в моем скрипте, как мне сохранить его на диск?

Чтобы сохранить сюжет, вам нужно сделать следующее:

1. Открыть устройство, используя png(), bmp(), pdf()или аналогичные
2. Разместите свою модель
3. Закройте устройство, используя dev.off()

Пример кода для сохранения графика в pngфайл:

fit <- lm(some ~ model)

png(filename="your/file/location/name.png")
plot(fit)
dev.off()

Это описано в (комбинированной) справочной странице для графических форматов ?png, ?bmp, ?jpegи ?tiffтак же , как и в отдельной странице справки для ?pdf.

Тем не менее, обратите внимание, что изображение на диске может выглядеть иначе, чем на том же графике, непосредственно отображаемом на экране, например, если вы изменили размер экранного окна.

Обратите внимание, что если ваш график сделан одним из latticeили ggplot2вы должны явно распечатать график. Смотрите этот ответ, который объясняет это более подробно, а также ссылки на R FAQ: qplot ggplot не выполняется при поиске

2. Сейчас я смотрю на график на своем экране и хочу скопировать его «как есть» на диск.

dev.print(pdf, 'filename.pdf')

Это должно идеально скопировать изображение с учетом любого изменения размера, которое вы сделали для интерактивного окна. Как и в первой части этого ответа, вы можете заменить его pdfдругими типами файлов, такими как png.

Если вы хотите продолжать видеть график в R, другой вариант заключается в использовании dev.copy:

X11 ()
plot (x,y)

dev.copy(jpeg,filename="plot.jpg");
dev.off ();

Если вы попали в беспорядок в слишком многих окнах графиков в R, используйте, graphics.off()чтобы закрыть все окна графиков.

Если вы используете ggplot2предпочтительный способ сохранения, это использовать ggsave. Сначала вы должны построить, после создания сюжета вы называете ggsave:

ggplot(...)
ggsave("plot.png")

Формат изображения определяется расширением, которое вы выбираете для имени файла. Дополнительные параметры могут быть переданы ggsave, в частности width, heightи dpi.

Как это

png('filename.png')
# make plot
dev.off()

или это

# sometimes plots do better in vector graphics
svg('filename.svg')
# make plot
dev.off()

или это

pdf('filename.pdf')
# make plot
dev.off()

И, вероятно, другие тоже. Они все перечислены вместе на страницах справки.

По первому вопросу я считаю, dev.printчто лучше всего работать в интерактивном режиме. Сначала вы настраиваете свой график визуально, и когда вы довольны тем, что видите, вы можете попросить R сохранить текущий график на диск

dev.print(pdf, file="filename.pdf");

Вы можете заменить pdfна другие форматы, такие как png.

Это скопирует изображение в точности так, как вы видите его на экране. Проблема dev.copyв том, что изображение часто отличается и не запоминает размер окна и соотношение сторон - это заставляет график быть квадратным по умолчанию.

По второму вопросу (как уже отвечали другие) вы должны направить вывод на диск, прежде чем выполнять свои команды печати.

pdf('filename.pdf')
plot( yourdata )
points (some_more_data)
dev.off() # to complete the writing process and return output to your monitor

Если вы используете R Studio http://rstudio.org/, есть специальное меню для сохранения вашего графика в любом формате и в любом разрешении, которое вы выберете.

Если вы откроете устройство, используя png(), bmp()и pdf()т. Д., Как рекомендует Андри (лучший ответ), окна с графиками не будут открываться, будут созданы только файлы * .png, * bmp или * .pdf. Это удобно в массовых вычислениях, поскольку R может обрабатывать только ограниченное количество графических окон.

Однако, если вы хотите увидеть графики и сохранить их, звоните savePlot(filename, type)после того, как графики нарисованы, и окно, содержащее их, активно.

plotpath<- file.path(path, "PLOT_name",paste("plot_",file,".png",sep=""))

png(filename=plotpath)

plot(x,y, main= file)

dev.off()

Чтобы добавить к этим ответам, если у вас есть сценарий R, содержащий вызовы, которые генерируют графики на экране (собственное устройство), то все они могут быть сохранены в PDF-файл (устройство по умолчанию для неинтерактивной оболочки) "Rplots.pdf "(имя по умолчанию) путем перенаправления скрипта в R из терминала (при условии, что вы работаете в Linux или OS X), например:

R < myscript.R --no-save

Это может быть преобразовано в JPG / PNG по мере необходимости

В некоторых случаях требуется сохранить и распечатать базовый график. Я потратил немного времени и придумал эту полезную функцию:

x = 1:10

basesave = function(expr, filename, print=T) {
  #extension
  exten = stringr::str_match(filename, "\\.(\\w+)$")[, 2]

  switch(exten,
         png = {
           png(filename)
           eval(expr, envir = parent.frame())
           dev.off()
         },
         {stop("filetype not recognized")})


  #print?
  if (print) eval(expr, envir = parent.frame())

  invisible(NULL)
}

#plots, but doesn't save
plot(x)

#saves, but doesn't plot
png("test.png")
plot(x)
dev.off()

#both
basesave(quote(plot(x)), "test.png")

#works with pipe too
quote(plot(x)) %>% basesave("test.png")

Обратите внимание, что нужно использовать quote, в противном случае plot(x)вызов выполняется в глобальной среде и NULLпередается basesave().

dev.copy(png,'path/pngFile.png')
plot(YData ~ XData, data = mydata)
dev.off()