Question

我有很多以年份命名的文本文件，即yob1940.txt，yob1941.txt。每个文件有3列数据。我正在尝试将数据导入到单个数据表中的R中，并在第4列中为每个文件添加年份任何帮助将非常感激。感谢

Answer 1

这样的Smth会起作用：

rbindlist(lapply(list.files(pattern = "yob[0-9]+\\.txt"),
                 function(x) data.table(year = sub('.*?([0-9]+).*', '\\1', x),
                                        fread(x)))))

Answer 2

假设您已将这些文件读作x1和x2

df.list<-list(x1,x2)
kk<-do.call(rbind,df.list)
year<-data.frame(rep(c(1940,1941),c(nrow(x1),nrow(x2))))
names(year)<-"year"
mydata<-data.frame(cbind(kk,year))

示例示例：

x1<-data.frame(x=c(1,3),y=c(2,3))
x2<-data.frame(x=c(3,3),y=c(2,2))
df.list<-list(x1,x2)
kk<-do.call(rbind,df.list)
year<-data.frame(rep(c(1940,1941),c(nrow(x1),nrow(x2))))
names(year)<-"year"
mydata<-data.frame(cbind(kk,year))

 mydata
  x y year
1 1 2 1940
2 3 3 1940
3 3 2 1941
4 3 2 1941

R，将多个文本文件名转换为列名

2 个答案: