R语言课件3

错误于setwd("f:\r") : 无 法改变工作目录
注：R命令中目录的分割符使用正斜杠“/”或两个反 斜杠“\\”。
一 、数据的存储
2、数据保存为文件
函数1：write.table(data,file,s=T,quote=T) 函数2：write.csv(data,file,s=T,quote=T) 说明：data一般为数据框，也可以是（向量，矩阵，数组， 列表等）,s为行号，quote为引号，默认为True。 例如： > write.table(mtcars,file="a1.txt") >write.table(mtcars,"a1.csv") > write.table(mtcars,"a1.dat") > write.table(mtcars,"a1.db") > write.csv(mtcars,"a2.txt") > write.csv(mtcars,"a2.csv") > write.csv(mtcars,"f:/abc/a2.csv")
二、数据的读取
4、R中数据集的读取 （1）R中标准数据集读取 >data() （2）专用程序包中的数据集 >library(“pkname”) >data(package=“pkname”) #pkname为程序包的名字 >data(dataname)
二、数据的读取
例题：先安装amap数据包。 > library(amap) #载入数据包 > data(package=“amap”) #查看数据包中的数据集 > data(lubisch ,package=“amap”) #载入数据lubisch > lubisch #查看数据 >mean(lubisch$X1) #求X1均值 >attach(lubisch) #激活数据集lubisch >mean(X1) #求X1均值 >detach(lubisch) #挂起（卸载）lubisch
药品 单位 盒 盒 盒 盒 盒 盒 支 甁
药品 单价 24.6 11 68.2 15.7 11 2.8 0.5 6.0
药品 数量 1100 1200 1000 100 1000 1000 1000 1000
生产日期 2011-3-13 2011-3-30 2011-3-28 2011-4-7 2011-4-10 2011-8-31 2011-5-1 2011-6-12
药品 编号 1001 1002 1003 1004 1005 2001 2002 2003
药品名称 阿莫西林 阿莫仙士干糖浆 爱活胆通 倍他乐克 肠虫清 复方胃友 藿香正气水 西瓜霜喷剂
药品 类型 西药 西药 西药 西药 西药 中成药 中成药 中成药
药品剂型 24s 125mg×12包 100s 20s 10s 100s 100s 3g
二、数据的读取
2、Excel数据的读取 方法一：利用剪贴板,先复制excel中数据区域，执行 Mydata<-read.delim(“clipboard”) 方法二：使用程序包RODBC,先下载安装RODBC包。 > library(RODBC) > z<-odbcConnectExcel("body.xls") >foo<-sqlFetch(z,"Sheet1") >close(z) 若为Excel2007则使用函数odbcConnectExcel2007()
二、数据的读取
4、R格式的数据 将数据保存在Rdata为扩展名的文件中。 >attach(mtcars) >mtcars2<-data.frame(mtcars[,c(1,4)]) >save(mtcars2,”d:/r/myR.Rdata”) >load(“d:/r/myR.Rdata”) #重新加载
• 要想将“药品编号”字段设置为“主键”即“主关键字”， 可以选中该字段，然后点击“常用工具栏”上的图标；也 可以在该字段上点击右键，在弹出的快捷菜单中进行设置。
• 设计完成之后，我们单击保存，系统会提示我们输入表的 名字，我们输入“药品表”，单击确定，关闭设计器，完 成表的设计。
（2）向表中录入数据 打开药品表，录入如图所示的药品信息，录入数据时要注 意，药品编号是主键不能空或重复。
二、数据的读取
1、文本文件的读取 2、Excel数据的读取 3、R中数据集的读取 4、R格式的数据
二、数据的读取
1、文本文件的读取 函数：read.table(file,header=F) 说明：数值项（除了行号）将被当作数据变量读入，非数值变 量（如Cent.heat）,将被作为因子读入。如果明确数据的第一行 作为表头行，则使用header选项。read.table()有四个变形， read.csv(), read.csv2(), read.delim(), read.delim2()，具体查看帮助 信息。 例如： h1<-read.table(file="foo.dat") h1<-read.table(file="foo.dat",header=T) h2<-read.csv("a2.csv")
计算机与R语言ຫໍສະໝຸດ 录计算机与R语言第三章 数据的存储与读取
一、数据的存储
二、数据的读取
一 、数据的存储
1、R的工作目录 > getwd() 命令方式： [1] "D:/我的文档" 获取工作目录的函数：getwd() > setwd("f:/r") > getwd() 修改工作目录的函数：setwd() [1] "f:/r“ 菜单方式： 文件菜单中的“改变工作目录”> setwd("f:\r")
一 、数据的存储
> write.table(d,file="a1.txt") > write.table(d,file="a1.txt",s=F) > write.table(d,file="a1.txt",s=F,quote=F) > write.table(d,file="a1.txt",s=F,s=F,quote=F)
例如： （1）在当前工作目录下，建立“医生处方和药品.MDB”数据 库，并创建“药品表”，其字段信息如下： • 药品编号：文本（4），主键（即主关键字） • 药品名称：文本（15） • 药品类型：文本（10） • 药品剂型：文本（15） • 药品单位：文本（4） • 药品单价：数字（单精度，小数位数1位） • 药品数量：数字（长整型） • 生产日期：日期/时间 • 药品过期日期：日期/时间 • 是否使用：是/否
二、数据的读取
2. Access数据的读取 Access数据库的读取和存储将使用SQL语句。 例如： > library(RODBC) #加载程序包 > z<-odbcConnectAccess("医生处方和药品.mdb") > sql<- "select * from 药品表" #使用SQL语句 > a<-sqlQuery(z,sql) #读取数据 >a #显示结果 > odbcClose(z) #关闭连接
#连库
二、数据的读取
• • • • • • • SQL语句有很多种形式： 读取所有记录： select * from 药品表 读取部分字段： select 药品编号,药品名称 from 药品表 设置查询条件： select * from 药品表where 药品单价>20 排序查询结果：select * from 药品表order by 生产日期 desc 读取前n条记录：select top 5 * from 药品表 去掉重复数据：select distinct 药品单位 from 药品表
一 、数据的存储
函数3： save(data,file=filename) save.image() 说明：保存空间的映像。 注：在R退出时系统自动保存两个文件，即.Rdata 和.Rhistory。两个文件的作用分别为保存内存变量 值和保存历史命令。所以如果想再次打开R时，能 够调用曾经的命令，仅执行save.image()是不够的， 需要保存历史记录为.Rhistory文件才可以。 例如： >mt<-subset(mtcars,cyl==6) >save(mt,file=”F:/r/mt.Rdata”)
药品过 期日期 2013-2-4 2013-2-21 2013-2-19 2013-2-28 2013-3-3 2013-9-1 2013-5-2 2013-6-13
是否 使用
是 是 是 否 是 是 是 否
• 关系数据库的表即是我们熟悉的二维表格，这里是保存实际数据的地 方。一个表就是一个被分成若干个字段的记录的集合。
二、数据的读取
3、Access数据的读取 作为简单易用的关系数据库管理系统，既可以直接进行数 据存储统计分析，也可以作为各种小型应用系统的后台数据 库。目前Access常用的版本有Access2003和Access2007等， Access2003的数据文件格式为.MDB，而Access2007的数据文 件格式为.Accdb。 1） Access数据库与表 Access数据库是一种关系数据库，关系数据库是一种将数 据汇集到一个或多个独特的二维表中的数据库，表通过相关 表的联系字段彼此关联。