- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
引用向量内的元素 intake.pre - c(5260, 5470, 5640, 6180, 6390, 6515, 6805, 7515, 7515, 8230, 8770) intake.post - c(3910, 4220, 3885, 5160, 5645, 4680, 5265, 5975, 6790, 6900, 7335) intake.pre[5]; intake.pre[c(3,5,7)] v - c(3,5,7);intake.pre[v] intake.pre[1:5]; intake.pre[-c(3,5,7)] 引用数据框中的元素 d - data.frame(intake.pre, intake.post) $ 引用 d$intake.pre [,] 方括号引用 d[,1]; d[5,] 访问数据框内的元素 直接调用数据框内的列向量 attatch() detatch() 在函数内部,对数据进行相应调整 with() subset() within() transform() 条件筛选 条件筛选是先对变量否满足条件进行判断,满足为TRUE,不满足为FALSE。之后再用逻辑值对向量内的元素进行筛选。 intake.pre 7000 [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE intake.pre[intake.pre 7000] intake.post[intake.pre 7000 intake.pre = 8000] intake.pre 7000 intake.pre = 8000 练习八:条件筛选 创建一个2到50的向量 vector1 2, 4, 6, 8, ..., 48, 50 vector1-seq(from=2, to=50, by=2) 选取vector1中的第20个元素 vector1[20] 选取vector1中的第10,15,20个元素 vector1[c(10,15,20)] 选取vector1中的第10到20个元素 vector1[10:20] 选取vector1中值大于40的元素 vector1[vector40] 排序 将向量中的元素按照一定顺序排列。 sort() 按数值大小排序 举例: intake$post sort(intake$post) order() 给出从小到大的出现序号。 order(intake$post) o - order(intake$post) 工作空间 ls() 列出工作空间中的对象 rm() 删除工作空间中的对象 rm(list=ls()) 删除空间中所有对象 save.image() 保存工作镜像 sink() 将运行结果保存到指定文件中 getwd() 显示当前工作文件夹 setwd() 设定工作文件夹 练习九:了解工作路径 1 查看当前R工作的空间目录 getwd() 2 将R工作的路径设置为 d:/data/ setwd(“d:/data”) 三 编写脚本 编写脚本(Scripting) 脚本是什么? 脚本是一系列命令。 可以先批量的编号程序,或者对别人已经编好的程序进行修改。之后输入到控制台进行调试,以满足数据分析的需求。 语言高亮显示 在代码较多的情况下,有时需要对行数、函数、括号、函数选项等进行高亮显示,设置成不同的颜色,以减少错误。 图11 TinnR对R脚本的高亮显示 图12 NotePad++对R脚本的高亮显示 部分函数 计算 log(x) log10(x) exp(x) sin(x) cos(x) tan(x) asin(x) acos(x) min(x) max(x) range(x) length(x) 统计检验 mean(x) sd(x) var(x) median(x) quantile(x,p) cor(x,y) t.test() lm(y ~ x) wilcox.test() kruskal.test() 统计检验 lm(y ~ f+x) lm(y ~ x1+x2+x3) bartlett.test binom.test fisher.test chisq.test glm(y ~ x1+x2+x3, binomial) friedman.test ... 图7 箱线图修饰前后(左:默认值,右:修改属性后) boxplot(count ~ spray, data = InsectSprays) boxplot(count ~ spray, data = InsectSprays, col = red) R函数
文档评论(0)