从R保存pdf中数据集的所有条形图

Question

我使用以下程序保存pdf中给定数据集的所有条形图，我的数据集只有分类变量，

somePDFPath = "C:/Users/manusharma5/Documents/Rtest/graph.pdf"
pdf(file=somePDFPath)  

for (colname in colnames(data2)) 
  {
  par(mfrow = c(2,1))
  ggplot(data=data2, aes(x=colname))+geom_bar()+geom_text(stat='count',aes(label=..count..),vjust=-1)+
  ggtitle(colname)+theme(plot.title = element_text(color="red", size=14, face="bold.italic")) 
  } 
dev.off() 

我无法打开pdf文件，它说pdf中没有页面，可能是因为我的程序无法生成各列的图形。

请帮我辨别我犯的错误。我感谢所有的帮助

此外，我如何在1个pdf页面中保存超过1个图表，因此它将为50个猫变量节省50个pdf页面