编辑代码

temp = vector()
        result =data.frame()
        cand_ml <- list()
        for (i in seq(1:length(cand))){
            
        for (chr in seq(1:length(cand[[1L]]))){
            
        x1 <- as.data.frame(cand[[chr]])
        n <- names(x1)
        gsub("X[0-9]..","",n)
        nn <- gsub("X[0-9]+.","",n)
        names(x1) <- nn
        cand_ml[[chr]] <- colSums(x1) 
        
        temp[i] = append(temp[i],cand_ml[[chr]])  
        }
        
        #result= rbind(result,temp)
        }
        write.table(temp, "test3/result_1.csv",row.names = FALSE, col.names =FALSE)