R语言实战第二章代码.doc

#2.1.1data() #查看数据集列表data(CO2) #载入CO2数据集（来自datasets）library(MASS) #载入package MASSdata(package=MASS) #查看MASS中数据集data(SP500,package=MASS) #载入MASS中的SP500数据集，也可简化为data(SP500)#2.1.2getwd() #返回当前工作目录，C:/Users/DELL/Documentssetwd(d:/data) #也可以写成setwd(d:\\data)“/ ”或“\\”getwd() #返回当前工作目录d:/dataread.table(file, header=FALSE, sep=” ”,quote=”\” ,dec=”.“, , as.is=!stringsAsFactors, na.strings=”NA”,skip=0, strip.white=FALSE, blank.lines.skip=TRUE,comment.char=”#”)dec #设置用来表示小数点的字符；s #向量的行名，默认为1,2,3.。。na.strings #赋给缺数据的值（NA）skip #开始读取数据前跳过的数据文件行数（一般为标题行）strip.white #（是否消除空白字符）blank.lines.skip #（是否跳过空白行）data=read.table(d:/data/salary.txt,header=T) #读取数据，没有事先设定工作目录时data=read.table(salary.txt,header=T) #出现缺失值会报错，不是有效读取大数据的方法data #显示数据data=read.csv(salary.csv,header=T) #出现缺失值会自动填补NA一种更灵活的指令---函数scan()scan(file=” ”, what=double(), nmax=-1, n=-1, sep=” ”,skip=0,nlines=0, na.strings=”NA”....))scan()函数中如果不加参数，可以手动输入数据；scan()函数不存在header参数what--指定要读取的数据类型，支持logical, integer, numeric,complex,character,raw,listdata2=scan(salary.txt,skip=1,what=list(City=,Work=0,Price=0,Salary=0)) #说明要创建列表，指定了列表中的对象名称，指定city是字符型，其他是数值型变量。 #由于不存在header参数，skip=1说明读取时跳过表示名称的第一行data2mode(data) #显示对象类型；[1] listnames(data) #显示对象中的标签；[1] City Work Price Salarydim(data) #显示对象的维数；[1] 15 4#要显示列表中的变量需要使用符号$，attach()简化data$Salary #注意区分大小写attach(data)Salarydetach(data)Salary#2.1.3 读取固定宽度格式的文件 read.fwf()#read.fwf() 通过widths参数指定一个向量c()来设置各个字段的宽度，小数点占一个字符data.fwf=read.fwf(d:/data/fwf.txt,widths=c(2,4,4,3),s=c(W,X,Y,Z))data.fwf#2.1.4data.excel=read.delim(clipboard) #clipboard即剪切板mode(data.excel);dim(data.excel)#RODBC提供R和各类数据库的一个接口，其中获取Excel连接的函数是odbcConnectExcel()和odbcConnectExcel2007()，分别用来读取Excel2003版（扩展名为.xls）和2007版（.xlsx）。install.packages(RODBC)library(RODBC)channel=odbcConnectExcel2007(d:/data/Salary.xlsx) #获取Excel连接sqlTables(channel) #列出excel中的表格#获取Sheet1中的数据，可以使用如下的任意一种方式data.excel2=sqlFetch(channel,Sheet1) #直接获取data.excel2=sqlQuery(channel,select*from[Sheet1$]) #使用SQL