Use (edit) lapply to read and adding an id column to your files. Then do rbind on the files. This would give you what you want:

f <- list.files() # suppose you have your files in your current directory
file <- lapply(f, function(x){
  df <- read.csv(x) 
  df$id <- x 
  return(df)})
fin_df <- do.call("rbind", file)

Hello paramount.amin!

We believe that this post does not fit the main topic of this site.

Not a bioinformatics question.

For this reason we have closed your question. This allows us to keep the site focused on the topics that the community can help with.

If you disagree please tell us why in a reply below, we'll be happy to talk about it.

Cheers!