Jak zapisać działkę jako obraz na dysku?

Rysuję prostą regresję liniową za pomocą R. Chciałbym zapisać ten obraz jako PNG lub JPEG, czy można to zrobić automatycznie? (przez kod)

Istnieją dwa różne pytania: Po pierwsze, już patrzę na fabułę na monitorze i chciałbym ją zapisać bez zmian. Po drugie, nie wygenerowałem jeszcze wykresu, ale chciałbym zapisać go bezpośrednio na dysku podczas wykonywania mojego kodu wydruku.

Istnieją dwa ściśle powiązane pytania i odpowiedź na każde z nich.

1. W przyszłości w moim skrypcie zostanie wygenerowany obraz. Jak zapisać go na dysku?

Aby zapisać działkę, musisz wykonać następujące czynności:

1. Otwórz urządzenie, za pomocą png(), bmp(), pdf()lub podobny
2. Wykreśl swój model
3. Zamknij urządzenie za pomocą dev.off()

Przykładowy kod do zapisania wykresu do pngpliku:

fit <- lm(some ~ model)

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

Jest to opisane w (kombinowanego) stronie pomocy graficznych formatów ?png, ?bmp, ?jpegi ?tiff, jak również w oddzielnej stronie pomocy ?pdf.

Należy jednak pamiętać, że obraz na dysku może wyglądać inaczej niż ta sama fabuła narysowana bezpośrednio na ekranie, na przykład po zmianie rozmiaru okna ekranowego.

Pamiętaj, że jeśli twoja fabuła została stworzona przez jednego z nich latticelub ggplot2musisz jawnie wydrukować fabułę. Zobacz tę odpowiedź, która wyjaśnia to bardziej szczegółowo, a także linki do R FAQ: qplot ggplota nie wykonuje się podczas pozyskiwania

2. Obecnie patrzę na fabułę na ekranie i chcę skopiować ją „jak jest” na dysk.

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

Powinno to idealnie skopiować obraz, z uwzględnieniem wszelkich zmian rozmiaru dokonanych w interaktywnym oknie. Możesz, podobnie jak w pierwszej części tej odpowiedzi, zastąpić pdfinnymi typami plików, takimi jak png.

Jeśli chcesz nadal widzieć wykres w R, inną opcją jest użycie dev.copy:

X11 ()
plot (x,y)

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

Jeśli dojdziesz do zagracenia zbyt wielu okien wykresu w R, użyj, graphics.off()aby zamknąć wszystkie okna wykresu.

Jeśli korzystasz ggplot2z preferowanego sposobu oszczędzania, należy użyć ggsave. Najpierw musisz spiskować, po utworzeniu fabuły wywołujesz ggsave:

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

Format obrazu zależy od rozszerzenia wybranego dla nazwy pliku. Dodatkowe parametry mogą być przekazywane ggsave, zwłaszcza width, heighti dpi.

Lubię to

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

albo to

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

albo to

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

I prawdopodobnie także inni. Wszystkie są wymienione razem na stronach pomocy.

W przypadku pierwszego pytania uważam, że dev.printnajlepiej jest pracować interaktywnie. Po pierwsze, skonfiguruj swój wykres wizualnie, a gdy będziesz zadowolony z tego, co widzisz, możesz poprosić R o zapisanie bieżącego wykresu na dysku

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

Możesz zastąpić pdfinnymi formatami, takimi jak png.

Spowoduje to skopiowanie obrazu dokładnie tak, jak widzisz go na ekranie. Problem dev.copypolega na tym, że obraz jest często inny i nie pamięta rozmiaru okna i współczynnika proporcji - domyślnie wymusza kwadratowy wykres.

W przypadku drugiego pytania (jak już odpowiedzieli inni) musisz skierować dane wyjściowe na dysk przed wykonaniem poleceń drukowania

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

Jeśli używasz R Studio http://rstudio.org/, istnieje specjalne menu, aby zapisać twoją fabułę w dowolnym formacie i dowolnej rozdzielczości.

Jeśli otworzysz urządzenie za pomocą png(), bmp(), pdf()itd. Jak sugeruje Andrie (najlepsza odpowiedź), okna z działek nie pojawiają się otwarte, tylko * .png, * bmp lub * .pdf zostanie utworzony. Jest to wygodne w przypadku masowych obliczeń, ponieważ R może obsługiwać tylko ograniczoną liczbę okien graficznych.

Jeśli jednak chcesz zobaczyć wykresy i zapisać je, zadzwoń savePlot(filename, type)po narysowaniu wykresów i aktywnym oknie zawierającym je.

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

png(filename=plotpath)

plot(x,y, main= file)

dev.off()

Aby dodać do tych odpowiedzi, jeśli masz skrypt R zawierający wywołania, które generują wykresy do ekranu (urządzenie macierzyste), wszystkie one można zapisać do pliku pdf (urządzenie domyślne dla powłoki nieinteraktywnej) "Rplots.pdf „(nazwa domyślna) poprzez przekierowanie skryptu do R z terminala (zakładając, że korzystasz z systemu Linux lub OS X), np .:

R < myscript.R --no-save

W razie potrzeby można to przekonwertować do formatu jpg / png

W niektórych przypadkach chce się zarówno zapisać, jak i wydrukować podstawowy wykres r. Spędziłem trochę czasu i wymyśliłem tę funkcję narzędzia:

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")

Należy pamiętać, że należy użyć quote, w przeciwnym razie plot(x)wywołanie zostanie uruchomione w środowisku globalnym i NULLzostanie przekazane do basesave().

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