R语言——编程逻辑（案例分析）

循环语句
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