Bagaimana cara menyimpan plot sebagai gambar pada disk?

Saya merencanakan regresi linier sederhana menggunakan R. Saya ingin menyimpan gambar itu sebagai PNG atau JPEG, apakah mungkin untuk melakukannya secara otomatis? (melalui kode)

Ada dua pertanyaan berbeda: Pertama, saya sudah melihat plot di monitor saya dan saya ingin menyimpannya apa adanya. Kedua, saya belum membuat plot, tetapi saya ingin langsung menyimpannya ke disk ketika saya menjalankan kode plot saya.

Ada dua pertanyaan yang terkait erat, dan jawaban untuk masing-masing.

1. Sebuah gambar akan dihasilkan di masa depan dalam skrip saya, bagaimana cara menyimpannya ke disk?

Untuk menyimpan plot, Anda perlu melakukan hal berikut:

1. Buka perangkat, menggunakan png(), bmp(), pdf()atau serupa
2. Plot model Anda
3. Tutup perangkat menggunakan dev.off()

Beberapa contoh kode untuk menyimpan plot ke pngfile:

fit <- lm(some ~ model)

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

Hal ini dijelaskan dalam (gabungan) halaman bantuan untuk format grafis ?png, ?bmp, ?jpegdan ?tiffjuga di halaman bantuan terpisah untuk ?pdf.

Namun perhatikan bahwa gambar mungkin terlihat berbeda pada disk dengan plot yang sama langsung diplot ke layar Anda, misalnya jika Anda telah mengubah ukuran jendela di layar.

Perhatikan bahwa jika plot Anda dibuat oleh salah satu latticeatau ggplot2Anda harus mencetak plot secara eksplisit. Lihat jawaban ini yang menjelaskan hal ini lebih terinci dan juga tautan ke FAQ R: qplot ggplot tidak mengeksekusi pada sumber

2. Saya sedang melihat plot di layar saya dan saya ingin menyalinnya 'apa adanya' ke disk.

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

Ini harus menyalin gambar dengan sempurna, sesuai dengan ukuran yang telah Anda lakukan ke jendela interaktif. Anda dapat, seperti pada bagian pertama dari jawaban ini, ganti pdfdengan tipe file lain seperti png.

Jika Anda ingin terus melihat plot di R, opsi lain adalah menggunakan dev.copy:

X11 ()
plot (x,y)

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

Jika Anda mencapai banyak jendela plot yang berantakan di R, gunakan graphics.off()untuk menutup semua jendela plot.

Jika Anda menggunakan ggplot2cara penyimpanan yang disukai adalah menggunakan ggsave. Pertama, Anda harus memplot, setelah membuat plot yang Anda panggil ggsave:

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

Format gambar ditentukan oleh ekstensi yang Anda pilih untuk nama file. Parameter tambahan dapat dikirimkan ke ggsave, terutama width, height, dan dpi.

Seperti ini

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

atau ini

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

atau ini

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

Dan mungkin yang lain juga. Mereka semua tercantum bersama di halaman bantuan.

Untuk pertanyaan pertama, saya menemukan dev.printyang terbaik ketika bekerja secara interaktif. Pertama, Anda mengatur plot Anda secara visual dan ketika Anda senang dengan apa yang Anda lihat, Anda dapat meminta R untuk menyimpan plot saat ini ke disk

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

Anda dapat mengganti pdfdengan format lain seperti png.

Ini akan menyalin gambar persis seperti yang Anda lihat di layar. Masalahnya dev.copyadalah bahwa gambar sering berbeda dan tidak ingat ukuran jendela dan aspek rasio - memaksa plot menjadi persegi secara default.

Untuk pertanyaan kedua, (seperti yang sudah dijawab orang lain), Anda harus mengarahkan output ke disk sebelum Anda menjalankan perintah plotting Anda

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

Jika Anda menggunakan R Studio http://rstudio.org/ ada menu khusus untuk menghemat plot Anda sebagai format apa pun yang Anda suka dan pada resolusi apa pun yang Anda pilih

Jika Anda membuka perangkat menggunakan png(), bmp(), pdf()dll seperti yang disarankan oleh Andrie (jawaban terbaik), jendela dengan plot tidak akan muncul terbuka, hanya * .png, * bmp atau file * .pdf akan dibuat. Ini nyaman dalam perhitungan besar, karena R hanya dapat menangani jumlah jendela grafis yang terbatas.

Namun, jika Anda ingin melihat plot dan juga menyimpannya, panggil savePlot(filename, type)setelah plot digambar dan jendela yang memuatnya aktif.

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

png(filename=plotpath)

plot(x,y, main= file)

dev.off()

Untuk menambah jawaban ini, jika Anda memiliki skrip R yang berisi panggilan yang menghasilkan plot ke layar (perangkat asli), maka semua ini dapat disimpan ke file pdf (perangkat default untuk shell non-interaktif) "Rplots.pdf "(nama default) dengan mengarahkan ulang skrip ke R dari terminal (dengan asumsi Anda menjalankan linux atau OS X), misalnya:

R < myscript.R --no-save

Ini dapat dikonversi ke jpg / png seperlunya

Dalam beberapa kasus seseorang ingin menyimpan dan mencetak plot r dasar. Saya menghabiskan sedikit waktu dan membuat fungsi utilitas ini:

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

Perhatikan bahwa seseorang harus menggunakan quote, jika tidak, plot(x)panggilan dijalankan di lingkungan global dan NULLditeruskan ke basesave().

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