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

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. #R中，每一行中#号之后被视为注释
   
2. #安装nutshell包
   
3. install.packages("nutshell")
   
4. 
   
5. #使用上下方向键可以调用之前输入的命令
   
6. #使用tab键可以得到某个函数或文件名可能的补全列表
   
7. #显示历史命令清单
   
8. history()
   
9. 
   
10. #四则运算
    
11. 17+3
    
12. 12-4
    
13. 23*5
    
14. 9/3
    
15. 
    
16. #涉及换行，如下第一行输入并不完整，R中按下enter，R会换行并显示+，并等待输入完整
    
17. 1*2*3*4*
    
18. 7*6
    
19. 
    
20. #使用c()函数构建向量
    
21. c(1,2,3,4,5,6,7,8)
    
22. 
    
23. #使用序列操作符:生成包含从1到50之间所有整数的向量
    
24. 1:50
    
25. 
    
26. #当对两个向量执行某个操作时，R会对两个向量中处于相同位置的元素进行操作，然后返回一个向量
    
27. c(1,2,3,4)*c(5,6,7,8)
    
28. 
    
29. #如果两个向量的长度不同，R会对较短的向量进行重复拼接，将其补成与另一向量相同的长度，然后计算
    
30. #如果较长的向量的长度不是另一个向量长度的整数倍，R会显示警告信息
    
31. c(1,3,4,5,6)/c(2,3)
    
32. 
    
33. #字符向量
    
34. "hello,world!" #长度为1
    
35. c("hello","world") #长度为2
    
36. length(c("a","aa","aaa")) #返回向量长度
    
37. 
    
38. #e为底的指数
    
39. exp(3)
    
40. cos(3.1415926/2)
    
41. cos(pi/2)
    
42. 
    
43. #自然对数
    
44. log(exp(1))
    
45. #常用对数
    
46. log10(10)
    
47. #4为底64的对数
    
48. log(x=64,base=4)
    
49. log(64,4)
    
50. 
    
51. #指数函数
    
52. 4^(log(64,4))
    
53. 
    
54. #判断是否相等
    
55. 3==4
    
56. 
    
57. #变量赋值
    
58. x<-1
    
59. y<-2
    
60. z<-c(x,y)
    
61. z
    
62. 
    
63. #从变量中取特定值，[]表示所取值的位置或满足的条件
    
64. b<-c(1,2,3,4,5,6,7,8,9,10,11,12)
    
65. b[7]
    
66. b[1:6]
    
67. b[c(1,3,6)]
    
68. b[b%%3==0]
    
69. 
    
70. #可以将函数作为一个对象赋值给某个符号，在控制台中输入一个函数名，可以得到该函数的源代码
    
71. f<-function(x,y){c(x+1,y+1)}
    
72. f
    
73. f(1,2)
    
74. 
    
75. #数组，array，被认为是具有维度属性的向量
    
76. a<-array(c(1:12),dim=c(3,2,2))
    
77. a
    
78. a[2,2,1]
    
79. a[1,1,]
    
80. 
    
81. #矩阵，matrix，是一种二维的数组
    
82. m<-matrix(c(1:12),nrow=3,ncol=4)
    
83. m
    
84. m[,2]
    
85. 
    
86. #列表，list，可以混合多种不同类型的对象，其元素不要求是同一种数据类型，可以为每一个元素命名
    
87. l<-list(thing="hat",size="8.25")
    
88. l
    
89. l$thing
    
90. l[1]
    
91. l[[1]]
    
92. 
    
93. #一个列表中还可以包含其他列表
    
94. ll<-list(time="8:00",l)
    
95. ll
    
96. ll[2]
    
97. ll[[2]]
    
98. 
    
99. #数据框，data.frame，是一种特殊的列表，可以包含多个具有相同长度的向量作为元素
    
100. teams<-c("phi","nym","fla","atl","wsn")
     
101. w<-c(92,89,94,72,59)
     
102. l1<-c(70,73,77,90,102)
     
103. nleast<-data.frame(teams,w,l1)
     
104. nleast
     
105. #使用$操作符通过列名对数据框中元素取值
     
106. nleast$w
     
107. nleast$l1[teams=="fla"]
     
108. 
     
109. #R是一种面向对象的编程语言，每个对象都具有类型，每个对象都是某个类的成员
     
110. #使用class()函数可以获知一个对象的类
     
111. class(class)
     
112. class(a)
     
113. class(m)
     
114. class(l)
     
115. class(nleast)
     
116. 
     
117. #模型，model，是一种描述一组数据的简洁方式，通常会用数学公式来表示
     
118. #有时候，通过一个利用训练（training）数据建立起来的预测（predictive）模型去预测其他数据的相关值
     
119. #有时候，建立一个解释（descriptive）模型来帮助更好地理解数据
     
120. #建立线性回归模型
     
121. cars.lm<-lm(formula=dist~speed,data=cars)
     
122. cars.lm
     
123. summary(cars.lm)
     
124. 
     
125. #图形
     
126. library(nutshell)
     
127. data(field.goals)
     
128. head(field.goals)
     
129. hist(field.goals$yards)
     
130. hist(field.goals$yards,breaks=35)
     
131. table(field.goals$play.type)
     
132. stripchart(field.goals[field.goals$play.type=="FG blocked",]$yards,
     
133. pch=19,method="jitter") #method参数设置成jitter可避免重叠而使每个点都能清楚地显示
     
134. 
     
135. data(cars)
     
136. dim(cars) #查看数据记录条数和变量个数
     
137. names(cars) #查看变量名称
     
138. summary(cars)
     
139. plot(cars,xlab="speed(mph)",ylab="stopping distance(ft)",
     
140. las=1,xlim=c(0,25))
     
141. 
     
142. library(lattice)
     
143. library(nutshell)
     
144. data(consumption)
     
145. dotplot(Amount~Year|Food,consumption,
     
146. aspect="xy",scales=list(relation="sliced",cex=.4))
     
147. 
     
148. #获取函数帮助信息
     
149. help(glm)
     
150. ?glm
     
151. #获取操作符的帮助信息
     
152. ?"+"
     
153. #运行相关例子
     
154. example(glm)
     
155. #进行主题搜索
     
156. help.search("regression")
     
157. ??regression
     
158. #查看包的帮助文档
     
159. library(help="grDevices")
     
160. #查看指南文档
     
161. vignette("grid")
     
162. #查看已加载的所有包的指南文档
     
163. vignette(all=F)
     
164. #查看已安装的所有包的指南文档
     
165. vignette(all=T)

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：技术手册 核心技术 R语言 基础篇 nutshell 技术 笔记 R语言 基础

第132行中goals和play之间应该有美元符号，方括号后yards之前应该有美元符号。

guaizijing 发表于 2016-7-15 12:03

лл