混50论坛币下点资料。

library(data.table)
a1 = data.table(a=1:20,b=c(0,3,9,2,3,4,5,1,3,5,7,8,5,3,2,1,3,5,7,8))
setkey(a1,a)
a2 =  a1[b > 4]
a3 = a2[a1][,list(a,b)]
a3[is.na(b),b:= 0]
a3
     a b
1:  1 0
2:  2 0
3:  3 9
4:  4 0
5:  5 0
6:  6 0
7:  7 5
8:  8 0
9:  9 0
10: 10 5
11: 11 7
12: 12 8
13: 13 5
14: 14 0
15: 15 0
16: 16 0
17: 17 0
18: 18 5
19: 19 7
20: 20 8

[1] 0
[1] 2
[1] "e"
[1] "e"
[1] 0
[1] 2
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] 0
[1] 2
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] 0
[1] 2
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] 0
[1] 2
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] 0
[1] 2
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] 0
[1] 2
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] 0
[1] 2
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] 0
[1] 2
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"
[1] "e"

运行过程生成的 print，循环运行了9次，if没起到作用！？

代码太长，没有注释，所以没看完。但开头的a2<-subset(a1,a1[2]>4)是不是有问题，里面应该是a1[,2]吧？少了个逗号？

不好意思  第一次发，所有不知道怎么问！


a1<-data.frame(a=1:20,b=c(0,3,9,2,3,4,5,1,3,5,7,8,5,3,2,1,3,5,7,8))#建立数据框a1 含有 a  b#
a2<-subset(a1,a1[,2]>4)        #取出a1中b大于4的数据存为a2#

a3<-data.frame(a=1,b=1)      #建立a3#
for(i in 1:9){               # str（a2）有9个数据，循环9次#
   a4<-a2[i,]                #中间变量a4，只有一行#
   print(0)
   if(a2[i,1]==i){             #判断 a2中a的第i行与i的是否相等，为真 吧a4与a3合并#
         a3<-rbind(a3,a4)
          print(1)}              #打印1#
   if(a2[i,1]>i){                #判断若a2的 i行a 是否大于 i，若大于为真，建立新循环，循环a2 a的第i行与 j差值的次数#
         b<-a2[i,1]-i
         print(2)
         for(j in 1:b){
              a4[2]<-0
              a4[1]<-i
              print("e")
              a3<-rbind(a3,a4)}}   #循环合并到a3#
   }

我就想吧  a3  变成
   
a3  
   a   b
1  1   0
2  2   0
3  3   9
4  4   0
5  5   0
6  6   0
7  7   5
8  8   0
9  9   0
10 10  5
11 11  7
12 12  8
13 13  5
18 18  5
19 19  7
20 20  8