Làm thế nào để lưu một âm mưu như hình ảnh trên đĩa?

Tôi vẽ một hồi quy tuyến tính đơn giản bằng R. Tôi muốn lưu hình ảnh đó dưới dạng PNG hoặc JPEG, liệu có thể thực hiện tự động không? (thông qua mã)

Có hai câu hỏi khác nhau: Đầu tiên, tôi đã xem xét cốt truyện trên màn hình của mình và tôi muốn lưu nó như hiện tại. Thứ hai, tôi chưa tạo ra cốt truyện, nhưng tôi muốn trực tiếp lưu nó vào đĩa khi tôi thực thi mã âm mưu của mình.

Có hai câu hỏi liên quan chặt chẽ và một câu trả lời cho mỗi câu hỏi.

1. Một hình ảnh sẽ được tạo ra trong tương lai trong tập lệnh của tôi, làm cách nào để lưu nó vào đĩa?

Để lưu một cốt truyện, bạn cần làm như sau:

1. Mở một thiết bị, sử dụng png(), bmp(), pdf()hoặc tương tự
2. Vẽ mô hình của bạn
3. Đóng thiết bị bằng dev.off()

Một số mã ví dụ để lưu cốt truyện vào một pngtệp:

fit <- lm(some ~ model)

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

Này được mô tả trong phần (kết hợp) trang trợ giúp cho các định dạng đồ họa ?png, ?bmp, ?jpegvà ?tiffcũng như trong các trang trợ giúp riêng cho ?pdf.

Tuy nhiên, xin lưu ý rằng hình ảnh có thể trông khác trên đĩa với cùng một âm mưu được vẽ trực tiếp trên màn hình của bạn, ví dụ nếu bạn đã thay đổi kích thước cửa sổ trên màn hình.

Lưu ý rằng nếu cốt truyện của bạn được thực hiện bởi một trong hai latticehoặc ggplot2bạn phải in rõ ràng cốt truyện. Xem câu trả lời này giải thích điều này chi tiết hơn và cũng liên kết đến Câu hỏi thường gặp về R: qplot của ggplot không thực thi về tìm nguồn cung ứng

2. Tôi hiện đang xem một âm mưu trên màn hình của mình và tôi muốn sao chép nó 'như hiện trạng' vào đĩa.

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

Điều này sẽ sao chép hình ảnh một cách hoàn hảo, tôn trọng bất kỳ thay đổi kích thước nào bạn đã thực hiện với cửa sổ tương tác. Bạn có thể, như trong phần đầu tiên của câu trả lời này, thay thế pdfbằng các kiểu tệp khác như png.

Nếu bạn muốn tiếp tục xem cốt truyện trong R, một tùy chọn khác là sử dụng dev.copy:

X11 ()
plot (x,y)

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

Nếu bạn gặp phải sự lộn xộn của quá nhiều cửa sổ cốt truyện trong R, hãy sử dụng graphics.off()để đóng tất cả các cửa sổ lô.

Nếu bạn sử dụng ggplot2cách tiết kiệm ưa thích là sử dụng ggsave. Trước tiên, bạn phải vẽ, sau khi tạo cốt truyện bạn gọi ggsave:

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

Định dạng của hình ảnh được xác định bởi phần mở rộng bạn chọn cho tên tệp. Tham số bổ sung có thể được chuyển tới ggsave, đáng chú ý width, heightvà dpi.

Như thế này

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

hoặc cái này

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

hoặc cái này

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

Và có lẽ những người khác cũng vậy. Tất cả đều được liệt kê cùng nhau trong các trang trợ giúp.

Đối với câu hỏi đầu tiên, tôi thấy dev.printlà tốt nhất khi làm việc tương tác. Đầu tiên, bạn thiết lập âm mưu của mình một cách trực quan và khi bạn hài lòng với những gì bạn thấy, bạn có thể yêu cầu R lưu lại âm mưu hiện tại vào đĩa

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

Bạn có thể thay thế pdfbằng các định dạng khác như png.

Điều này sẽ sao chép hình ảnh chính xác như bạn nhìn thấy trên màn hình. Vấn đề với dev.copylà hình ảnh thường khác nhau và không nhớ kích thước cửa sổ và tỷ lệ khung hình - nó buộc cốt truyện phải vuông theo mặc định.

Đối với câu hỏi thứ hai, (như những người khác đã trả lời), bạn phải hướng đầu ra vào đĩa trước khi bạn thực hiện các lệnh vẽ biểu đồ của mình

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

Nếu bạn sử dụng R Studio http://rstudio.org/, có một menu đặc biệt để lưu lại âm mưu của bạn theo bất kỳ định dạng nào bạn thích và ở bất kỳ độ phân giải nào bạn chọn

Nếu bạn mở một thiết bị sử dụng png(), bmp(), pdf()vv như đề xuất bởi Andrie (câu trả lời tốt nhất), các cửa sổ với âm mưu sẽ không bật lên mở, chỉ * .png, * bmp hoặc * .pdf sẽ được tạo ra. Điều này thuận tiện trong các tính toán lớn, vì R chỉ có thể xử lý số lượng hạn chế của các cửa sổ đồ họa.

Tuy nhiên, nếu bạn muốn xem các ô và cũng đã lưu chúng, hãy gọi savePlot(filename, type)sau khi các ô được vẽ và cửa sổ chứa chúng đang hoạt động.

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

png(filename=plotpath)

plot(x,y, main= file)

dev.off()

Để thêm vào các câu trả lời này, nếu bạn có tập lệnh R chứa các cuộc gọi tạo ra âm mưu để sàng lọc (thiết bị gốc), thì tất cả chúng có thể được lưu vào tệp pdf (thiết bị mặc định cho trình bao không tương tác) "Rplots.pdf "(Tên mặc định) bằng cách chuyển hướng tập lệnh vào R từ thiết bị đầu cuối (giả sử bạn đang chạy linux hoặc OS X), ví dụ:

R < myscript.R --no-save

Điều này có thể được chuyển đổi sang jpg / png khi cần thiết

Trong một số trường hợp, người ta muốn vừa lưu và in một âm mưu cơ sở. Tôi đã dành một chút thời gian và đưa ra chức năng tiện ích này:

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

Lưu ý rằng người ta phải sử dụng quote, nếu không, plot(x)cuộc gọi được chạy trong môi trường toàn cầu và NULLđược chuyển đến basesave().

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