Sử dụng chức năng png không hoạt động khi gọi trong vòng một hàm

Question

Tôi có một chức năng nào công cụ và sau đó âm mưu dựa trên một điều kiện:

f <- function(n) { 
    rand <- rnorm(n) 
    no <- seq_len(n) 
    df <- data.frame(no=no, rand=rand) 
    if (n > 10) { 
    png("plot.png") 
    p <- ggplot(df) 
    p + geom_point(aes(x=no, y=rand)) 
    dev.off() 
    } 
} 

f(11) 

tôi nhận được một file png trống vào cuối này. Chuyện gì đang xảy ra ở đây?

Answer 1

Từ phản ứng, đây là hai giải pháp:

library(ggplot2) 
f <- function(n) { 
    rand <- rnorm(n) 
    no <- seq_len(n) 
    df <- data.frame(no=no, rand=rand) 
    if (n > 10) { 
    png("plot.png") 
    print({ 
     p <- ggplot(df) 
     p + geom_point(aes(x=no, y=rand)) 
    }) 
    dev.off()  
    } 
} 

f(11) 

Lưu ý: Tôi đã nhận thức được rằng tôi cần phải sử dụng print(), nhưng cách tôi đã cố gắng này đã không làm việc vì nó không được đặt ở bên phải địa điểm.

Ngoài ra, tôi đã thử tùy chọn ggsave trước đây, nhưng điều đó cũng không hoạt động. Tất nhiên, nó bây giờ hoạt động như là tốt. Nó cũng có vẻ có độ phân giải tốt hơn so với sử dụng png():

library(ggplot2) 
f <- function(n) { 
    rand <- rnorm(n) 
    no <- seq_len(n) 
    df <- data.frame(no=no, rand=rand) 
    if (n > 10) { 
    p <- ggplot(df) 
    p + geom_point(aes(x=no, y=rand)) 
    ggsave(file="plot.png") 
    } 
} 

f(11) 

Cảm ơn tất cả.

Answer 2

Tôi vừa học được từ trang web khác (liên kết được cung cấp bên dưới). Trong một vòng lặp, bạn phải sử dụng rõ ràng chức năng in để làm cho hàm jpeg(), png() hoạt động. Trong bài đăng gốc, bạn chỉ có thể thêm một dòng in (p).

if (n > 10) { 
     png("plot.png") 
     p <- ggplot(df) 
     p + geom_point(aes(x=no, y=rand)) 
     print(p) 
     dev.off() 
    } 

Trong liên kết dưới đây, nó cung cấp một lời giải thích tốt cho việc này https://stat545-ubc.github.io/block017_write-figure-to-file.html#despair-over-non-existent-or-empty-figures