通过R读取多个文件

lf <- list.files(path = ".", pattern = "\\.dat")
fn <- gsub("\\.dat", "", lf)
for (i in seq_along(lf))
    assign(fn[i], read.csv(lf[i]))

关键函数是 assign。