第七讲R语言 导入导出数据.ppt
第七讲 导入导出数据;导入数据;read.table(file, header = FALSE,sep = "",quote = "\"'", dec = ".",row.names, col.names, as.is = FALSE,na.strings = "NA",colClasses = NA,nrows = -1,skip = 0, check.names = TRUE, fill = !blank.lines.skip,strip.white = FALSE,blank.lines.skip = TRUE,comment.char = "#");team,name,level,worktime,bounsbatch,SuNan,B,135,"9,818"batch,ChenQi,E,121,"6,050"batch,JiangXu,F,97,"4,189"online,ZhouXi,F,63,online,ChenHe,H,36,"1,064";>read.table("D:/work/TeamInfo.csv",header=TRUE,sep=",")->TeamInfo> TeamInfo team name level worktime bouns1 batch SuNan B 135 9,8182 batch ChenQi E 121 6,0503 batch JiangXu F 97 4,1894 online ZhouXi F 63 5 online ChenHe H 36 1,064;head:TRUE,第一行为数据名; FALSE(缺省),第一行被命名为V1,V2,…;>read.table("D:/work/TeamInfo.csv",header=TRUE,sep=" ")->TeamInfo> TeamInfo team.name.level.worktime.bouns1 batch,SuNan,B,135,9,8182 batch,ChenQi,E,121,6,0503 batch,JiangXu,F,97,4,1894 online,ZhouXi,F,63,5 online,ChenHe,H,36,1,064;nrows = -1:可读取的最大行数skip = 0 : 跳过的行数;read.table的几个变种因为使用了不同的缺省值可以用在几种不同情况下:read.csv(file, header = TRUE, sep = ",", quote="\"", dec=".",fill = TRUE, ...)read.csv2(file, header = TRUE, sep = ";", quote="\"", dec=",",fill = TRUE, ...)read.delim(file, header = TRUE, sep = "\t", quote="\"", dec=".",fill = TRUE, ...)read.delim2(file, header = TRUE, sep = "\t", quote="\"", dec=",",fill = TRUE, ...);内建数据集的存取;从其他R功能包中载入数据;数据编辑;scan(file = "", what = double(0), nmax = -1, n = -1, sep = "",quote = if (sep=="\n") "" else "'\"", dec = ".",skip = 0, nlines = 0, na.strings = "NA",flush = FALSE, fill = FALSE, strip.white = FALSE, quiet = FALSE,blank.lines.skip = TRUE, multi.line = TRUE, comment.char = "");>scan("D:/work/TeamInfo.csv",what=list(team="",name="",level="",worktime=0,bouns=""),skip=1,sep=",")->TeamInfoRead 5 records> TeamInfo$team[1] "batch" "batch" "batch" "online" "on