R语言核心技术手册---语言篇---书中代码与个人注释

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. #R代码由一系列表达式组成，包括赋值语句、条件语句和算术表达式等
   
2. x<-7;x
   
3. if(x>8) "yes" else "no"
   
4. 127%%10
   
5. #表达式由对象和函数构成，可以用换行符或者分号来分隔表达式
   
6. #所有R代码都用于操作对象，对象是计算机世界里的个体，R中对象包括向量、列表、函数等
   
7. #R中变量的名字称为符号，将一个对象赋给变量名时，其实是将该对象赋给当前环境里的一个符号
   
8. #函数是R中的特殊对象，函数接受输入对象，并返回输出对象
   
9. #R中所有工作都是由函数完成的。R中所有语句包括设定变量、数学运算和代码循环都可以写成函数
   
10. 
    
11. #在赋值语句中，对象会被复制形成拷贝
    
12. x<-1:10
    
13. f<-function(w,i){w[i]<-4} #创建一个将w的第i个元素设为4的函数
    
14. f(x,1)
    
15. x
    
16. 
    
17. 
    
18. #R中的一切---函数、符号，甚至表达式---都是对象
    
19. 
    
20. #NA表示缺失值，not available
    
21. #-Inf表示负无穷
    
22. #Inf表示正无穷
    
23. 1/0
    
24. #NaN表示没有意义的结果
    
25. 0/0
    
26. #NULL通常表示函数参数没有被赋值
    
27. 
    
28. #使用前缀数字0和小写字母x可以将对象指定为十六进制计数法表示
    
29. 0xFFFF
    
30. typeof(1) #返回数据结构
    
31. typeof(as(1,"integer")) #as函数指定数据结构
    
32. 
    
33. #R中复数表示为“实部+虚部i”
    
34. 0+1i^2
    
35. sqrt(-1+0i) #sqrt函数返回结果的类型与其输入参数的数据类型一致
    
36. sqrt(-1)
    
37. 
    
38. #可以用反引号定义一个包含特殊字符或以数字开头的符号
    
39. `1+2+3=7`<-"hello,world"
    
40. `1+2+3=7`
    
41. #并非所有的单词都能作为有效的符号，有些单词由于在R中有特殊用途而被保留
    
42. 
    
43. #取模运算
    
44. 27%%4
    
45. #整除运算
    
46. 27%/%4
    
47. 
    
48. #用户可以自定义运算符，一般由一对百分号和百分号字符中间的字符串组成
    
49. #自定义运算符：创建一个有变量的函数，将其赋值给一个适当的符号
    
50. `%myop%`<-function(a,b){2*a+2*b}
    
51. 2 %myop% 3
    
52. 
    
53. #括号会返回括号内表达式的执行结果
    
54. (x<-c(4,5,6,7))
    
55. #花括号用于执行一系列表达式，并返回最后一个表达式的执行结果
    
56. {x<-7;y<-4;x^y}
    
57. 
    
58. if(T)"this will be"
    
59. if(F)"this will be" else "this will not be"
    
60. #if语句如果条件语句是由一个以上的逻辑值组成的向量，执行该语句时只会用到向量中的第一个元素
    
61. #如果要进行向量化操作，可以使用ifelse函数
    
62. x<-10
    
63. y<-c(12,11,13)
    
64. if(x<y) x else y
    
65. ifelse(x<y,x,y)
    
66. 
    
67. #根据不同的单个输入返回不同的值
    
68. m.if.then<-function(x){
    
69. if(x=="a")
    
70. "camel"
    
71. else
    
72. if(x=="b")
    
73. "bear"
    
74. else
    
75. "moose"
    
76. }
    
77. #借助switch函数实现同样的目的
    
78. m.switch<-function(x){
    
79. switch(x,
    
80. a="camel",
    
81. b="bear",
    
82. "moose")
    
83. }
    
84. 
    
85. m.if.then("a")
    
86. m.if.then("g")
    
87. m.switch("a")
    
88. m.switch("g")
    
89. 
    
90. #repeat循环结构
    
91. i<-5
    
92. repeat{if(i>25) break else {print(i);i<-i+5}}
    
93. 
    
94. #while循环结构
    
95. i<-5
    
96. while(i<=25){print(i);i<-i+5}
    
97. 
    
98. #for循环结构
    
99. for(i in seq(from=5,to=25,by=5)) print(i)
    
100. 
     
101. #循环中，使用break命令可以跳出循环，使用next命令可以跳至循环的下一轮迭代
     
102. 
     
103. #使用x[s]可以根据元素位置在向量中查找元素
     
104. x<-1:23
     
105. x[7]
     
106. #通过负整数返回一个删除特定位置元素之后的向量
     
107. x[-10:-1]
     
108. #使用x[s]可以实现元素替换
     
109. #可以使用逻辑向量作为索引向量进行数据引用
     
110. #逻辑向量不必与向量本身长度相同，R会自行重复较短的向量并返回匹配的值
     
111. y<-1:20
     
112. y[c(T,F)]
     
113. y[rep(c(T,F),15)]
     
114. 
     
115. #设定recursive=T时，c函数可以从其他数据结构中递归形成向量
     
116. (v<-c(0.1,0.2,list(0.3,0.4)))
     
117. (vv<-c(0.1,0.2,list(0.3,0.4),recursive=T))
     
118. 
     
119. #应用seq生成序列
     
120. seq(from=1,to=20,by=5)
     
121. seq(from=1,to=20,length=6)
     
122. 
     
123. #生成矩阵
     
124. (m<-matrix(data=1:12,nrow=4,ncol=3,
     
125.            dimnames=list(c("r1","r2","r3","r4"),
     
126.                          c("c1","c2","c3"))))
     
127. 
     
128. #因子
     
129. (ec<-factor(c("a","a","b","c","b","b")))
     
130. #创建有序因子
     
131. (sr<-factor(c("a","a","b","c","c","d","d"),
     
132.            levels=c("d","b","c","a"),
     
133.            order=T))
     
134. #通过移除类属性创建整型向量
     
135. (srv<-unclass(sr))
     
136. #通过设定类属性将整型向量重新转换为因子
     
137. class(srv)<-"factor"
     
138. srv
     
139. 
     
140. #时间序列
     
141. ts(1:8,start=c(2008,2),frequency=4)
     
142. library(nutshell)
     
143. data(turkey.price.ts)
     
144. turkey.price.ts
     
145. start(turkey.price.ts)
     
146. end(turkey.price.ts)
     
147. 
     
148. #日起对象
     
149. dm<-as.Date("6/1/2008","%m/%d/%Y")
     
150. tm<-Sys.Date()
     
151. tm-dm
     
152. 
     
153. #通过attributes函数可以获得一个包含对象所有属性的列表
     
154. #比较两个对象是否相同，可以使用all.equal函数或identical函数
     
155. #class函数获知对象的类
     
156. #typeof函数获知对象的类型

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：技术手册 核心技术 R语言 计算机世界 else 技术 笔记 代码 语言 注释

脚本截图

9没有附件？？？WHY

guaizijing 发表于 2016-7-16 10:59

谢谢你