在R中打印合并数据帧的每一行

用户名

我正在尝试合并2个文本文件的内容,并使用R打印合并的输出。我的代码如下:

setwd("C:\\Documents and Settings\\Administrator\\Desktop\\Test")
file_list <- list.files()


for (file in file_list){
  print(file)
  # create merged dataset if it does not exist
  if(!exists("dataset")){
    dataset <- read.table(file, header=TRUE, sep="\t")
  }
  # else, append to it
  if(exists("dataset")){
    temp_dataset <-read.table(file, header=TRUE, sep="\t")
    dataset <- rbind(dataset,temp_dataset)
    rm(temp_dataset)
  }
}
dataset

“测试”文件夹中有2个文本文件-file1.txt和file2.txt。file1.txt的行为ABC,而file2.txt的行为DEF。但是,运行脚本时,仅打印ABC,而不打印DEF。我不知道为什么。我是R脚本的新手,因此可能会犯一些基本错误。请帮忙。

阿克伦

或者使用rbindlistdata.table

 library(data.table)
 file_list <- list.files() #2 rows per files
  rbindlist(lapply(file_list, fread))
 #  A  B  C
 # 1: 4 12 18
 # 2: 3  5  6
 # 3: 4 14 25
 # 4: 3 13 28

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

Related 相关文章

热门标签

归档