From a filelist how do i read the csv that begin with numbers and add before blank to the back of the string seperated by a underscore using r?

Question

For example I begin by pulling the dataset like this

#set the directory
setwd("C//Users//Project")


filestoread <- list.files(pattern = "^.*\\\