有时候会遇见Excel文件,使用R语言读取略显麻烦。写个函数即可,代码如下(注意使用了RODBC包):
xls_read <- function(fileName) {
require(RODBC)
conn = odbcConnectExcel(fileName)
sheetName <- sqlTables(conn)$TABLE_NAME
data <- list()
for(i in 1 : length(sheetName)) {
data[[i]] = sqlFetch(conn, sheetName[i])
}
close(conn)
return(data)
}