R 如何添加两个lappy函数的输出文件

我两次使用拉普拉函数分析了1-5班30所学校的及格学生和不及格学生的数据。使用拆分函数，根据学校名称拆分了两个数据帧。现在，我需要在单个文件中查看一个学校（学校）列表中的及格学生和不及格学生

这是我的密码：

spt1 <-split(pass, pass$school) 
# ^ result1 is a dataframe, splitting school wise in pass df

abc=lapply(names(spt1), function(x){write.table(spt1[[x]], 
  file = paste("C:/Users/Documents/Output/Pass", x, ".csv"), row.names = FALSE ,sep = "," )}) 
# ^ for loop to seggregate passed list across all schools

spt2 <-split(fail, fail$school) 
# ^ splitting failur list in the dataframe based on schools

def=lapply(names(spt2), function(x){write.table(spt2[[x]],  
  file = paste("C:/Users/Documents/Output/Fail", x, ".csv"), row.names = FALSE , sep = ",",)}) 
# ^ for loop to seggregate failure list across all schools

---

spt1如果有一些样本数据就好了。这能给你一个可能的解决方案吗

install.packages('gridExtra')

require(gridExtra)

for(i in 1:length(names(spt1))){
    pdf(file = "test.pdf", width=28, height=21, paper='a4')


   data1 <- spt1[[i]] 
   loops <- ceiling(nrow(data1)/40)    
      for(j in 1:loops){
          from <- max(1,(j-1)*40)
          to   <- min(nrow(data1),j*40)
          grid.table(data1[from:to,], show.rownames = FALSE, gpar.coretext=gpar(fontsize=8) )
          grid.newpage()    
       }


    grid.newpage()

   data2 <- spt2[[i]] 
   loops <- ceiling(nrow(data2)/40)    
      for(j in 1:loops){
          from <- max(1,(j-1)*40)
          to   <- min(nrow(data2),j*40)
          grid.table(data2[from:to,], show.rownames = FALSE, gpar.coretext=gpar(fontsize=8) )
          grid.newpage()    
       }
    dev.off()

}

install.packages（'gridExtra'））
需要（额外）
对于（1中的i：长度（名称（spt1）））{
pdf（file=“test.pdf”，宽度=28，高度=21，纸张=a4'）
数据1感谢您的回复。我需要添加两个数据帧spt1和spt2，每个数据帧包含30个文件，并且应该在pdf文档中看到。我似乎理解有点慢，但您能否更详细地描述一下：您是否要将这两个
数据帧
合并并将它们写入pdf？您想做什么表示“每个数据帧包含30个文件”？是的。你可以看到上面的代码，我应用了两个for循环。Eor每个for循环我得到30个文件的输出，现在，我希望看到将所有30个文件添加到其他循环中的其他30个文件中，并将它们写入pdf。我给出的代码确实将完全相同的
数据.frames
写入pdf。无需重新加载所有这些30个文件，然后写入pdf据我所知，您可能希望通过包含错误消息来改进您的问题。此外，您可能需要检查此问题以前是否在stackoverflow上处理过。如果没有，请打开一个新问题。如果没有其他信息，我将无法帮助您。