找到了一种R的方法，不知道对不对，如果不对，老师是否有代码能够打开或者拆分大的txt文件？大概5G

这段代码，有个问题，就是filename这里是否要改成自己的文件名？eachfile_lines_num这里呢？就这样放着，还是改成一个数值？

file_split <- function(filename,eachfile_lines_num)                               #建立函数

  c <- file(filename,"r")                                                    #建立链接

  varnames <- paste("splitfile", 1:1000, sep = "_")                          #建立尽可能多但不要太多的动态变量名

  i <- 1                                                                     #初始值

  while(TRUE){

    assign(varnames[i],value = readLines(c,n = eachfile_lines_num))    #分别把从filename中读出来的数据存放在变量中 

    write.table(get(varnames[i]),paste(varnames[i],".txt",sep = ""))   #分别把存放在变量中的数据写出到文件中

    if (length(get(varnames[i])) < eachfile_lines_num) break           

    else i <- i + 1                                                    #判断循环停止条件

  }

  return(