Lưu âm mưu mà không hiển thị nó ở tất cả

Question

Có thể lưu một âm mưu mà không hiển thị nó không?

Tôi đã thực hiện một chút ggplot để có thể sao chép đồ thị thành powerpoint dễ dàng, nó sao chép biểu đồ vào khay nhớ tạm, nhưng có thể thấy cửa sổ thiết bị mở và đóng nhanh, hơi khó xử, tôi có thể tránh điều này không?

Tôi đang sử dụng windows và rstudio.

mã thể sanh sản:

library(ggplot) 

`-.gg` <- function(e1,e2){ 
    assertthat::assert_that(is.numeric(e2), 
          length(e2)<= 2) 
    if(identical(e2,0)) return(invisible(NULL)) 
    W <- 8 
    H <- 4.5 
    dev.new(width=W * head(e2,1), height=H * tail(e2,1),noRStudioGD =TRUE) 
    print(e1) 
    savePlot("clipboard", type="wmf") 
    dev.off() 
    e1 
} 

ggplot(data.frame(x=1:10,y=1:10),aes(x,y)) + geom_point() - 1 - 0 

Edit:

Mã của tôi, và giải pháp được lựa chọn, có những vấn đề đối phó với semi-transparency.It của ok hầu hết thời gian, nhưng trường hợp ngoại lệ sẽ làm phiền. Có thể một đường dẫn đến giải pháp chung là lưu nó với tempfile rồi đọc nó vào khay nhớ tạm, hoặc thông qua chức năng R thích hợp, hoặc với dòng lệnh sử dụng system (có thể sẽ mở tệp vô hình và sao chép).

Answer 1

này hoạt động trên Windows: sử dụng thiết bị win.metafile(). Nếu bạn không cung cấp tên tập tin, nó sẽ lưu vào clipboard. Vì vậy, chức năng của bạn nên là

library(ggplot2) 

`-.gg` <- function(e1,e2){ 
    assertthat::assert_that(is.numeric(e2), 
          length(e2)<= 2) 
    if(identical(e2,0)) return(invisible(NULL)) 
    W <- 8 
    H <- 4.5 
    win.metafile(width=W * head(e2,1), height=H * tail(e2,1)) 
    print(e1) 
    dev.off() 
    e1 
} 

ggplot(data.frame(x=1:10,y=1:10),aes(x,y)) + geom_point() - 1 - 0 

Answer 2

Trên cửa sổ và R 3.4.2, sử dụng Sys.sleep đã có thể xem những âm mưu thay vì chớp và bỏ lỡ

`-.gg` <- function(e1,e2){ 
    assertthat::assert_that(is.numeric(e2), 
         length(e2)<= 2) 
    if(identical(e2,0)) return(invisible(NULL)) 
    W <- 8 
    H <- 4.5 
    dev.new(width=W * head(e2,1), height=H * tail(e2,1),noRStudioGD =TRUE) 
    print(e1) 
    savePlot("clipboard", type="wmf") 
    Sys.sleep(3) ## 
    dev.off() 
    e1 
} 

ggplot(data.frame(x=1:10,y=1:10),aes(x,y)) + geom_point() - 1 - 0