R语言循环读入xls

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

R语言如何for循环读入length（file）个.xls文件（file1...filen）

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 xls length for循环 file file 如何

本人初学者   没玩儿过，你有多少上XLS文件啊  或者在什么情况下要用这个循环去读取

用RODBC里的函数，去读xls或者readxls函数读吧，然后保存在list里面。
其实比较简单的是csv格式的。直接读取就可以了

jiangbeilu 发表于 2016-7-9 10:38
用RODBC里的函数，去读xls或者readxls函数读吧，然后保存在list里面。
其实比较简单的是csv格式的。直接读 ...

我基本上都用过，但是现在二十多个xls文件，想要用循环，所以求助帮忙给个循环的例子

用lapply.

先用dir()获取文件名
然后循环读取数据。
下面是大致的意思，你自己修改完善一下。

filenam <- dir( pathdata )
for (i in 1:length(filenam)){
     data <- read.table(filenam[i])
}

king64 发表于 2016-7-11 10:22
先用dir()获取文件名
然后循环读取数据。
下面是大致的意思，你自己修改完善一下。

谢谢，但是，我想要在循环中读入每个表，然后rbind每个表，得到文件名后，定义一个函数：
readfiles <- function(filenames){
  SD <- odbcConnectExcel(filenames)
  SD1 <- sqlFetch(SD,"sheet")
}
选择所要的sheet，然后rbind每个sheet，如何把这两部分操作写入循环中

if ( i==1 ) {
    library(RODBC)
         flnm <- paste( pathdata,"/",filenam[ 1 ],sep="")
         con=odbcConnectExcel2007(flnm) ## 64 bit
         # con=odbcConnectExcel(flnm)  ## 32 bit
    }
      FD <- sqlFetch(con, paste( "FD",year[ i ],sep=""), max = 0)
      # max=5, only the first rows;  max=0, all rows
     if ( i==length( year ) ) {
     close(con) #colse ODBC
     }

取决于每个文件中表名的规律！
上例中表名分别为：FD1990，FD1991，FD1992，。。。，FD2015

你根据自己文件的特征，改造一下，加入rbind语句。

如果文件或表中数据量很大很大的话，使用rbind速度会很慢的！！

king64 发表于 2016-7-13 11:06
你根据自己文件的特征，改造一下，加入rbind语句。

如果文件或表中数据量很大很大的话，使用rbind速度会 ...

那一般用merge或者join？这两个更偏向于匹配吧