You can also do this in a single line without a for loop using `do.call`

data_frame <- do.call(rbind,lapply(file_list,function(x) {read.csv(x,stringsAsFactors = F)]}))