导入多个 CSV 文件，获取变量名并将文件名导入新变量

Question

尝试将文件夹中的多个 CSV 文件导入 R。 CSV 文件都具有相同的结构，第一行要跳过，然后第二行是要导入的变量名称 - 之后数据开始。 我想在一个文件夹中导入所有 CSV 文件，从第一个文件的第二行获取变量名称（然后从以下 CSV 文件中跳过所有第 1+2 行）并另外添加另一列“ID” CSV 文件的文件名。

目前我有： （它会跳过所有文件的前两行并手动设置变量，但我想自动从第 2 行获取它们）

setwd("c:/datafolder/")
filenames <- Sys.glob("*.csv")
allData <- lapply(filenames, function(.file){

  dat<-read.csv(.file, header=F,skip=2)
  names(dat)<-c("variablename1",
                "variablename2",
                "variablename3"
  )

  dat$id<-as.character(.file)
  dat
})
combined_data <- do.call(rbind, allData)

Answer 1

我会试试这个：

inputfilename <- "filename"
df <- read.csv(inputfilename, header = F, stringsAsFactors = F, sep = ";")
df
       V1      V2      V3
1 bad row bad row bad row
2    Name     Age  Gender
3    John      12       M
4    Jane      20       F
names(df) <- df[2,]
df <- df[-c(1:2),]
df
  Name Age Gender
3 John  12      M
4 Jane  20      F
df$ID <- inputfilename
df <- df[,c(4,1:3)]
df
  ID        Name  Age     Gender
3  filename John  12      M
4  filename Jane  20      F

在此之后，您可以将不同的数据帧组合成 1。