打开终端，输入R就可进入编程环境。首先第一步：命令 ①，基本命令要么是表达式（expressions），要么就是赋值（assignments）。 ②，有对象! 就像有个女朋友一样! 随时随地么么哒！！可被创建（没有就去找一个）和控制（把在墙上！！！）！ **加粗文字** 知道这些就够了，那些条条框框都是些扯淡！咱们来看看怎么用才是真的！二：向量和赋值（不知道为什么喵的都喜欢说得那么高大上!搞得好高深的样子）其实也就是从左到右，或从右到左，把值复制给对方而已！实验一： > x <- c(10.4, 5.6, 3.1, 6.4, 21.7);x [1] 10.4 5.6 3.1 6.4 21.7 这里秒懂好吗？实验二：函数assign()也可以赋值！抢你饭碗没商量！ > assign("x", c(10.4, 5.6, 3.1, 6.4, 21.7));x [1] 10.4 5.6 3.1 6.4 21.7 不就是多了个assign吗？没啥了不起嘛？注意x的写法就好! 实验三：赋值符<-,-> > c(10.4, 5.6, 3.1, 6.4, 21.7) -> x;x [1] 10.4 5.6 3.1 6.4 21.7 看到这个你还有想什么想法？完全就是拐着弯的虐智商！嗯，开始进入“向量”（左右摇摆）的运算！不想哔哔！！！直接来实验四： > x <- 1:5 > y <- 1:3 > v <- 2*x + y + 1;v [1] 4 7 10 10 13 这里其实很好理解，把1-5的数赋值给x，把1-3的数赋值给y，然后把2*x + y + 1的运算赋值给v，最后运行v就搞定! **加粗文字** 到了可以输入字符串的函数了！终于可以大胆的打出I LOVE YOU 的词汇啦！这句话还是可以看看! （字符向量就是字符串，可以用双引号和单引号作分割符。 paste():可以把单独的字符连成字符串，可以有任意多的参数。参数中的任何数字都将被显式地强制转换成字符串，而且以同样的方式在终端显示。默认的分隔符是单个的空格符。）好长是不是？那么来看看是啥东西？实验五：修改分隔符换成空字符"" > labs <- paste(c("X","Y"), 1:10, sep="");labs [1] "X1" "Y2" "X3" "Y4" "X5" "Y6" "X7" "Y8" "X9" "Y10" 这里很好理解，就是创建个labs的对象！也就是找到个女朋友！我要让他粘贴X,Y 从1-10的顺序，sep为分开！多写写记忆一下就ok啦！之后我们进行索引向量！好6666的感觉，实际上就是很简单的一个原理而已~哈哈直接上实验实验六： > x <- c(TRUE, TRUE, FALSE, TRUE, FALSE) > y <- x[x];y [1] TRUE TRUE TRUE 这里的 y <- x[x] ，运行y的逻辑是正确的！所以返回肯定是ture了！实验七： > x <- 1:10 > x[1:5] [1] 1 2 3 4 5 这里更加简单了！就是一个选择问题! 从1-10中选择1：5，肯定返回的是1-5的值了! 实验八： > x <- 1:10 > x[-(1:5)] [1] 6 7 8 9 10 嘿嘿，这个应该不算难懂，也不算容易，官方解释：“负整数向量:这种索引向量指定被排除的元素而不是包括进来。” 也就是“指定你，不允许再骚扰我！” 也就是那么个意思~~~一样一样的！哈哈哈哈好吧！让咱们更加有逼格一点实验九： > fruit <- c(5, 10, 1, 20) > names(fruit) <- c("orange”, “banana”, “apple”, “peach”) > lunch <- fruit[c(“apple”,“orange”)];lunch apple orange 1 5 吐糟一下：谁吃得下这么多水果啊？是价钱的话也太贵了吧！苹果才一块钱或者吃一个，我醉了！其实这个的意思是创建一个fruit（水果），把多少钱或多少个赋值给fruit！然后再创建一个names（fruit）（水果名字），把名称赋值给names（fruit），然后再创建一个lunch，把想要吃的水果名称赋值给lunch，最后lunch一下，你就知道！下面这里讲的其实学过c语言的人都知道！算术运算符： + - * / 逻辑运算符： <，<=，>，>=，==,!=, &, |, ! 数学函数： log，exp，sin，cos，tan，sqrt ，max ，min，range，length，sum，prod，var 数学函数还好我大学第一学期无聊重新学过了！我感觉在外面多玩玩，多看看风景后，理解的能力提高了! 嗯，到了语法的真正的地方了! 1.条件语句:if if (expr1) expr2 else expr3 2.循环控制：for,repeat,while for (name in expr1) expr2 其中name 是循环变量，expr1是一个向量表达式，而expr2常常是根据虚拟变量name而设计的成组表达式。在name访问expr1所有可以取到的值时，expr2都会运行。实验十：例如使用for和if： > for (i in 1:5) { + if (i %% 2 == 0) { + print(paste(i, "is even")) + } else { + print(paste(i, "is odd")) + } + } [1] "1 is odd" [1] "2 is even" [1] "3 is odd" [1] "4 is even" [1] "5 is odd" 很简单，不想多啰嗦！值得一提的就是R语言中用for语句效率低！果然是高大上的语言！实验十一： > x <- 1:5 > sum <- 0 > i <- 1 > while (i <= length(x)) { + sum <- sum + x[i] + i <- i + 1 + } > sum [1] 15 while语句，多练习下就好~ 实验十二： repeat语句 > x <- 1:5 > sum <- 0 > i <- 1 > repeat { + if (i > length(x)) { + break + } + sum <- sum + x[i] + i <- i + 1 + } > sum [1] 15 这里的repeat翻译为重复，所以是一个循环，break后的next，和c语言的continue原理一样，为继续。接下来的实验越来越有趣了！生成正则序列 1:30语句等价于向量c(1,2,…,29,30)，30:1语句可用来产生一个逆向的数列。 seq：数列生成中最为常用的工具实验十三： > seq(1,5,1) [1] 1 2 3 4 5 给这个排序，重复的1只会显示一个！ rep：把一个数的完整拷贝多次，保持数列顺序实验十四： > x <- 1:3 > rep(x, times=2) [1] 1 2 3 1 2 3 了解rep的用法就ok！缺损值这个问题很好理解，"不可得到"（not available）或者"值丢失"（missing value），最后的结果都是NA，而且是对应的！最后对象又来了! 其实就是你找了女朋友，你的女朋友有一张漂亮的脸蛋和美腿，也就是官方说的：所有对象都有模式(mode)和长度(length)两个内在属性，也就是你为她着迷的原因了，不用记住什么叫对象，都是他喵的扯淡！实验十五： > x <- 1:3 > mode(x) [1] "numeric" > length(x) [1] 3 代码意思是把1-3的数赋值到x，用mode（模型）输出，返回的是数值型！也就是数字类型的模型。然后在输入有多长呢? 1,2,3，肯定是三个了！很简单嘛~ 哈哈，这个外部属性更好理解了，先来看实验实验十六： > z<-c(1:3,NA) > attr(z, "name") <- "abc" > attributes(z) $name [1] "abc" 让我来现实主义一下，当z很辛苦的熬到了发工资了，z的原型毕露，出去KTV专门挑了一个叫abc的美女，然后问了那个美女叫什么名字，美女回答他叫abc！而这个美女abc就是外部属性！终于到最后一小节了！因子？哈哈，我一瞬间有樱桃小丸子的概念，哈哈哈实验先来创建一个对象叫做state（国家，地名，州）的东西，把名称输入进去！ > state <- c("tas", "sa", "qld", "nsw", "nsw", "nt") 然后呢，我们再来factor一下 > statef <- factor(state) > statef [1] tas sa qld nsw nsw nt Levels: nsw nt qld sa tas 也就是按字母顺序嘛~ 还叫的那么高大上的（排序），切~ 接着 > levels(statef) [1] "nsw" "nt" "qld" "sa" "tas" 我勒个去，就是返回结果保持原来的引号条件，还叫个啥？（level 水平！！！）谁取的名字，我保证不打死你，一点哦都不押韵！嗯，好吧，我们再来计算一下每个国家或者州的平均收入吧~ 语法是 tapply（对象，对象.... ,mean）'; > incomes <- c(60, 49, 40, 61, 64, 60) > incmeans <- tapply(incomes, statef, mean) > incmeans nsw nt qld sa tas 62.5 60.0 40.0 49.0 60.0 嗯，incomes就是“收入"的意思，我记得还有”会计“的意思，tapply是“工资申请表”的意思！！mean 是”平均“的意思！！！长知识了！又学编程又学英语，爽歪歪~ 这句话才是重点：函数tapply() 可以用来处理一个由多个分类因子决定的向量下标组合。这里的总结还不错！copy了！哈哈哈小结： R语言中使用的命名字符集依赖于R所运行的系统和国家(系统的locale 设置)、允许数字、字母、“.”和“_”，命名必须以”.”或者字母开头，以”.”开头时第二个字符不允许是数字，<-，->，R语言的基本对象有矩阵、因子、列表、数据框和函数，assign()都可以赋值，c()可以有任意多个参数，而它返回的值则是一个把这些参数首尾相连形成的向量，paste()可以把单独的字符连成字符串，可以有任意多的参数，运算符有算术运算符、逻辑运算符、数学函数，控制语句有if...else,for,while,repeat,seq()是数列生成中最为常用的工具，rep()把一个数的完整拷贝多次，并保持数列顺序，在某些情况下，向量的元素可能有残缺。当一个元素或者值在统计的时候"不可得到"（not available）或者"值丢失"（missing value），相关位置可能会被保留并且赋予一个特定的值NA，对象有内在属性和外在属性，因子中常用levels()和tapply()操作。 ![](https://dn-simplecloud.qbox.me/5a546dc17647da4fa1daf359ef165ed4-wm)

“R语言教程”实验报告