r - 불규칙한 열 유형이있는 많은 csv 파일의 첫 번째 열에 파일 이름을 추가하십시오.

Question

폴더에 많은 csv 파일이 있고 그 이름은 날짜 (xys 01.12.2017)로 끝나는 동일한 형식입니다. 첫 번째 열의 각 데이터에 날짜를 추가해야합니다. 많은 예를 발견했지만 모든 예제 파일에서 열 형식이 동일합니다. 그러나 내 파일에는 동일한 수의 열이 포함되어 있지 않습니다. 숫자가 다른 경우에도 날짜를 추가 할 수 있습니까? 도움을 미리 감사하십시오.

Answer 1

모든 파일이 특정 하위 디렉터리에 있으면 파일을 나열한 다음 apply() 함수를 사용하여 데이터를 읽고 날짜를 첫 번째 열로 추가 할 수 있습니다.

# list the files 
fileList <- list.files(...,full.names=TRUE) 
theDataFrames <- lapply(fileList,function(x) { 
    data <- read.csv(x,header=TRUE) 
    # extract all characters after 'xls' in 'xys01.01.2017' 
    date <-rep(substr(x,4,nchar(x)),nrow(data)) 
    # bind date to data frame and return 
    cbind(date, data) 
})