read sequence .csv files.

read_seq_csv.r

library(dplyr)
seqence.number <- c(2012:2014)

for (i in seqence.number) {
  mypath <- file.path(getwd(), paste(i, ".csv", sep = ""))
  assign(
    paste("df", i, sep = ""), 
    read.csv(mypath, header = T) %>% 
    mutate(ID = i))
}