Question

我有一个R脚本，使用ggsave保存一些图。当我从命令行运行脚本时，它不仅保存我的图，而且还保存一个空的Rplots.pdf文件。如何防止R创建这个不必要的文件？

以下是重现错误的示例脚本：

#!/usr/bin/env Rscript

# Code that creates unnecessary Rplots.pdf file
library(ggplot2)
my.data <- data.frame(x = 1:10, y = 1:10)
my.plot <- qplot(x, y, data = my.data)
ggsave('example.png', my.plot)

以下所有运行脚本的方法都会创建不必要的文件：

Rscript script.R
Rscript --vanilla script.R
chmod a+x script.R
./script.R

此外，当我从交互式会话中获取代码时，会打开一个不必要的空白R图形设备窗口。

此外，如果我使用以下更详细的代码代替ggsave，我没有这些问题：

#!/usr/bin/env Rscript

# Code that does NOT create unnecessary Rplots.pdf file
library(ggplot2)
my.data <- data.frame(x = 1:10, y = 1:10)
my.plot <- qplot(x, y, data = my.data)
png(file = 'example.png')
print(my.plot)
dev.off()

这是我的会话信息（无论是运行Rscript还是以交互方式运行）：

R version 3.0.1 (2013-05-16)
Platform: x86_64-pc-linux-gnu (64-bit)

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
 [7] LC_PAPER=C                 LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] methods   stats     graphics  grDevices utils     datasets  base     

other attached packages:
[1] ggplot2_0.9.3.1

loaded via a namespace (and not attached):
 [1] colorspace_1.2-2   dichromat_2.0-0    digest_0.6.3       grid_3.0.1        
 [5] gtable_0.1.2       labeling_0.1       MASS_7.3-26        munsell_0.4       
 [9] plyr_1.8           proto_0.3-10       RColorBrewer_1.0-5 reshape2_1.2.2    
[13] scales_0.2.3       stringr_0.6.2

5年后更新（2018-08-02）：这个问题来来去去。 ggplot2 2.2.1不会产生空文件，ggplot2 3.0.0会产生，而ggplot2团队目前正在努力解决这个问题。有关开发历史记录，请参阅ggplot2问题#1326，#2363，#2758和#2787。

Answer 1

如果查看ggsave中宽度和高度参数的默认值，您会发现它们是par("din")[1]和par("din")[2]。如果你在控制台中运行它，你会看到它打开一个图形窗口，如果还没有打开它。

这种方式很有意义，因为为了获得设备宽度/高度（以英寸为单位），您需要一个实际的设备。我想有人可能会说如果没有设备打开，par("din")应该返回一个错误，在这种情况下，Hadley肯定会以不同的方式编写ggsave。

确实，来自?par：

如果当前设备是空设备，par将打开一个新设备在查询/设置参数之前。

因此，指定宽度/高度将防止虚假设备打开。

Answer 2

另一种解决方案是使用软件包R.devices禁止显示由ggsave打开的图形设备：

library(R.devices)
suppressGraphics(ggsave('example.png', my.plot))

有关另一个示例，请参见软件包作者的tweet。

如何在使用ggsave和Rscript时阻止R创建空的Rplots.pdf文件

2 个答案: