32读入Excel

1.间接法读取Excel包

①csv

getwd()

seted()

Excel文件另存为csv文件

读取csv文件:read.csv()

定义变量：x<-read.csv("文件名"，header=TRUE)

②剪切板

read.table(“clipboard”,sep="\t",header=T)

2.直接法读取Excel包

XLConnet包：依赖于java,计算机要运行java的环境

安装包：install.packages("XLConnect")

载入包：library(XLConnect)

3.读取数据：分为一步法和两步法

两步法：

（1）读取工作簿：loadWorkbook(“”文件名”)      ex<-loadWorkbook("data.xlsx")

（2）readWorksheet(ex,1)。保存为数据框：edata<-readWorksheet(ex,1)

查看一下：head(edata)

一步法：

readWorksheetFromFile("文件名"，sheet编号)

readWorksheetFromFile("data.xlsx,1")

4.写数据入工作簿：分为四步法和一步法

四步法：

（1）创建工作簿wb<-loadWorkbook("file.xlsx,create=T")

（2）在工作簿上创建工作表：writeWorksheet(wb,"sheet1")

（3）数据保存到工作表：writeWorksheet(wb,data=mtcars,sheet="sheet1")

（4）将工作簿存储为文件：saveWorkbook(wb)

一步法：writeWorksheetToFile("文件名"，数据，工作表编号)

writeWorksheetToFile("file.xlsx",data=iris,sheet="sheet1")

5.xlsx包的使用

install.packages("xlsx')    library(xlsx)

xlsx包有两个函数

（1）read.xlsx

读文件：read.xlsx("data.xlsx,1,startRow=1,endRow=100")

（2）write.xlsx

write.xlsx(x,file="rdata.xlsx",sheetName="sheet1",append=F)#append是否追加写入