Question

是否可以在不显示情节的情况下保存图表？

我做了一点ggplot黑客能够轻松地将图表复制到powerpoint，它将图表复制到剪贴板，但是可以看到设备窗口快速打开和关闭，它有点尴尬，我可以避免这个吗？

我正在使用windows和rstudio。

可重现的代码：

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

修改

我的代码和选择的解决方案在处理半透明度方面存在问题。大部分时间都可以，但异常会很烦人。也许通用解决方案的路径是使用tempfile保存它然后通过适当的R函数或使用system的命令行将其读入剪贴板（可能会打开文件无形和复制）。

Answer 1

这适用于Windows：使用win.metafile()设备。如果您没有提供文件名，则会保存到剪贴板。所以你的功能应该是

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

在Windows和R 3.4.2上，使用Sys.sleep能够查看情节，而不是眨眼和错过

`-.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

保存情节而不显示

2 个答案: