使用 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(...))

用 print 包裹它应该可以工作。