循环语句
for,while语句
> a<-10
> a
[1] 10
> for(i in 1:59){
+ a[i]<-i*2+3
+ }
> a
[1] 5 7 9 11 13 15 17
[8] 19 21 23 25 27 29 31
[15] 33 35 37 39 41 43 45
[22] 47 49 51 53 55 57 59
[29] 61 63 65 67 69 71 73
[36] 75 77 79 81 83 85 87
[43] 89 91 93 95 97 99 101
[50] 103 105 107 109 111 113 115
[57] 117 119 121
> b<-5
> i<-1
> while(b[i]<121){
+ i=i+1
+ b[i]=b[i-1]+2
+ }
> b
[1] 5 7 9 11 13 15 17
[8] 19 21 23 25 27 29 31
[15] 33 35 37 39 41 43 45
[22] 47 49 51 53 55 57 59
[29] 61 63 65 67 69 71 73
[36] 75 77 79 81 83 85 87
[43] 89 91 93 95 97 99 101
[50] 103 105 107 109 111 113 115
[57] 117 119 121
If…..else语句
> x<-9
> if(x>-10){
+ x<-x+10#满足x为10时执行语句
+ }else{
+ x<-x+5#否则的话执行该条语句
+ }
> x
[1] 19
向量化编程
案例1:在Data1.csv数据中,某些变量的数据存在缺失值,查找数据缺失值的比例
正常操作代码
将从国家统计局金融机构人民币年底余额信贷收支数据下载。
> Data1<-read.csv("D:\\数据分析的数据集\\jinrong.csv")
> str(Data1)
'data.frame': 41 obs. of 4 variables:
$ 指标 : Factor w/ 35 levels " 经营贷款",..: 34 32 21 12 5 6 14 5 6 17 ...
$ X2015年: int 1541204 1357022 1345783 546078 202869 343209 430247 174586 255661 241832 ...
$ X2016年: int 1759952 1505864 1497169 597751 231630 366121 502178 215107 287072 270379 ...
$ X2017年: int 1931934 1641044 1630577 643768 248239 395529 542405 237888 304517 304853 ...
> is.na(Data1)
指标 X2015年 X2016年 X2017年
[1,] FALSE FALSE FALSE FALSE
[2,] FALSE FALSE FALSE FALSE
[3,] FALSE FALSE FALSE FALSE
[4,] FALSE