파일 이름을 추가하지 않으면 'rbind'와 'lapply'가 제대로 작동합니다.

Question

데이터 프레임을 만들고 파일 이름과 함께 다음 코드를 사용하여 추가 csv 파일을 읽습니다.

wd <- "Working directory" 
file_list <- list.files(wd) 

### Function: read data ### 
read_data <- function(file){ 
    d <- read.csv(paste(wd,file,sep=""), stringsAsFactors = FALSE, strip.white = TRUE, na.strings = c("NA","")); # read in every file in the working directory 
    d$FileName <- substr(file,20,29); # append part of file name 
    d # return the dataframe 
} 

### Call rbind: merge data ### 
df <- do.call(rbind, lapply(file_list,read_data)) 

그러나이 오류가 달려 온다 : 내가 잘못 뭐하는 거지

Error in `$<-.data.frame`(`*tmp*`, "FileName", value = "2016010209") : 
    replacement has 1 row, data has 0 

?

건배

Answer 1

항상 데이터를 확인하십시오! 파일이 손상되어 비어 있습니다! 도움 주셔서 감사합니다.