R语言-03表格处理

读取xlsx

• xlsx包，针对少量数据比较适合,2表示工作簿的第二个表格，header=T表示将第一行作为表头

library(xlsx)
data <- read.xlsx("D:/dataset/test.xls", 2, header=T，encoding='UTF-8') #2代表sheet索引，含中文的表格最好加上encoding，否则会乱码

• openxlsx包，效率比xlsx高，sheet参数为1表示读取第一个表格

data <- read.xlsx("1-18.xlsx",sheet=1)

读取csv

• read.table、read.csv

t1 <- read.table("train_x_1000.csv", header=T, sep=",", comment.char="") 
#sep以逗号分隔，因为csv文件是以逗号分隔

含中文字符时,

t <- read.table("tab-case-100-utf8.csv", header=F, sep="\t", comment.char="", fileEncoding="UTF-8-BOM")

data <- read.xlsx("D:/dataset/main/ztj_topic.xls", 1, header=T, encoding='UTF-8')

利用openxlsx在现有表格里追加一个表格

1、将all2数据框写入xlsx文件，命名为orangeall4106.xlsx，sheet名为lubang
2、将all1数据框追加进orangeall4106.xlsx文件，sheet名为allcity

write.xlsx(all2,file="orangeall4106.xlsx",sheetName='lubang')
wbdatasets=loadWorkbook("orangeall4106.xlsx")
#为对象增加工作表，名字为allcity
addWorksheet(wbdatasets, "allcity")
writeData(wbdatasets,2,all1)
saveWorkbook(wbdatasets,file="orangeall4106.xlsx",overwrite = TRUE)