Як зберегти сюжет як зображення на диску?

Я будую просту лінійну регресію за допомогою 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()т.д. , як було запропоновано Andrie (краща відповідь), вікно з ділянок не спливало відкритим, тільки * .png, * ВМР або * .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()