facet_wrap_paginate函数有问题：我有几组图表。每个组中图的数量各不相同。当我使用facet_wrap_paginate将5x4图表中的每个组绘制到一个pdf上时，如果最后一个pdf页面的绘图太少，则会出现错误，因此第一行的绘图不会“填充”。

例如一组图包含22个图，因此第一页上有20个图，第二页上只有2个图，这会导致错误：

错误：无法创建零长度单位向量（“ unit”子设置）

这是示例代码：

for (i in Classes)
{
  x <- filter(all_data_R2_filtered,class.x== "i" )
  
  bp <- ggplot(data = x,aes(x=dil,y=mmol,color=AcquiMeth))+
    geom_point()+
    facet_wrap_paginate(name.x ~ .,ncol = 5,nrow = 4,scales = "free")
    number_of_pages <- n_pages(bp)
  
  pdf(paste("class",i,".pdf",sep = ""),paper= 'A4r',w= 297,h= 210)
  
  for(j in 1:number_of_pages){
    print(bp + facet_wrap_paginate(name.x ~ .,page = j))
    }
  dev.off()
}

有没有解决办法？在此先感谢您的帮助