使用包xlsReadWrite导出到xls:
library(xlsReadWrite)
filenames <- list.files("[path_name]", pattern="*.csv", full.names=TRUE)
for(i in 1:length(filenames)){
a <- read.csv(filenames[i])
write.xls(a, paste("file",i,".xls", sep=""))
}
Run Code Online (Sandbox Code Playgroud)