用R写函数导出PDF图，但PDF文件损坏

Question

我编写了这个函数来导出 R 中的图形。当我运行这个函数时，pdf 文件被创建，但它们已损坏并且无法打开（或者当我导出 png 文件时，文件是空的）。当我运行单独的代码行时，而不是作为它们工作的函数的一部分。

帮助！！我认为这一定与在函数中制作表格或图形有关（我是否必须执行返回图形/数据框之类的操作？）但我不知道是什么！

    graphFunction <- function(fileName){

pdfTitle <- paste(fileName, "_graph", ".pdf", sep = "")

File <- read.csv(fileName, quote = "")
ByPopAge<- ddply(File, .(age), summarise, # need to discount trials where no feeding obs and eve
        NCols = length(!is.na(colony_ID)),
        TotNumInd = sum(num.indvs)
)

pdf(pdfTitle, width =10, height =10)

ggplot(data = ByPopAge, aes(x = age, y = TotNumInd)) + geom_line() + geom_point()   
ggplot(data = ByPopAge, aes(x = age, y = NCols)) + geom_line() + geom_point()

dev.off() }

谢谢！

Answer 1

尝试做：

print(ggplot(...))

用打印包装它应该使它工作。