受到这个帖子的启发，https://bbs.pinggu.org/thread-2799231-1-1.html。我把代码改成如下：

read.data <- function(x) {
    ## Define a function name read.data() to read all data.
    m.x <- formatC(x, flag = 0, width = 3)
      ## Change the i to a charactor with 3 digitals width,
      ## for example: 1 to "001"."
    d.m.x <- paste(m.x, "csv", sep = ".")
      ## Change the m.i to file name,
      ## for example:002 to 002.csv.
    dat1 <<- do.call(rbind,lapply(d.m.x,read.csv))
}  

完美解决我的问题，虽然其实还不知道最后一句的具体语法和意思，但是管用：）

如果哪位高手能够告诉我：如何利用循环语句，批量导入有规律名字的csv文件数据，将非常感激。
因为我现在还是不明白1楼的代码问题出在哪里，很苦恼。

我终于找到了1楼中我代码的问题所在（红色字体部分是和一楼不同的地方），这就是新人的苦恼啊，基本概念不熟悉，更改代码如下就能成功实现: 输入任何1到999之间的数字向量，就能读取读取工作目录下相应文件（001.csv，002.csv，...，999.csv.）中的数据为数据框，并且最终合并成一个数据框文件：

read.data <- function(x) {
  ## Define a function name read.data() to read all data.
  i.x <- 1:length(x)   ## Use vector x's index as loop number.
pl.data <- data.frame()
    ## 定义一个空数据框，因为后面
    ## for循环中要用到这个变量
  for(i in i.x) {
    m.i <- formatC(x, flag = 0, width = 3)
        ## Change the i to a charactor with 3 digitals width,
        ## for example: 1 to "001"."
    d.m.i <- paste(m.i, "csv", sep = ".")
        ## Change the m.i to file name,
        ## for example:002 to 002.csv.
    pl.d.i <- read.table(d.m.i, header = TRUE, sep = ",",
                         stringsAsFactors = FALSE)
    pl.data <- rbind(pl.data, pl.d.i)
    ## 1楼代码主要出在这一句，用的是超级赋值<<-，这样pl.data就不存在for函数内，而存在于全球环境中了。
  }
  return(pl.data) ## 关键是这一句，不能在for函数内
}