统计0在每两个非0数之间出现的数量

问题如下:
如果：  

现在一个dataframe(假设如下):   

1 2 0 3 5 0 0 2 1
0 7 9 0 5 7 2 0 0
0 0 0 0 1 2 4 3 7
0 0 0 7 0 0 0 0 0
按纵列统计 每两个非0 数字之间出现的0 的个数 在总表中有多少次

例如： 第一列3个0 ；第二列2个0； 第三列 1个0 和2个0； 第4列2个0 ；第5列1个0 ；第6列1个0 和1个0 ；第7列1个0 和1个0 ；第8列1个0 和1个0 ；第9列1个0 和1个0
现在 ：间隔0是1个的次数：10
           间隔0是2个的次数：3
           间隔0是3个的次数：1

求各位帮忙

用C写的改的R，据说r中for循环效率低，LZ自己斟酌吧运行了一次，不保证没有bug

1. function(find0){
   
2.   data<-matrix(c(1,2,0,3,5,0,0,2,1,0,7,9,0,5,7,2,0,0,0,0,0,0,1,2,4,3,7,0,0,0,7,0,0,0,0,0),nrow=4,byrow = T)
   
3.   n01<-0
   
4.   n02<-0
   
5.   n03<-0
   
6.   temp<-0 #0值索引
   
7.   index<-1 #是否是第一个非0值的标志位
   
8.   for(i in 1:dim(data)[2]){
   
9.     for(j in 1:dim(data)[1]){
   
10.       if(data[j,i]!=0){
    
11.         if(index==1){
    
12.           index=0
    
13.           next
    
14.         }
    
15.         else{
    
16.           if(temp==1) n01<-n01+1
    
17.           else if(temp==2) n02<-n02+1
    
18.           else if(temp==3) n03<-n03+1
    
19.           temp=0
    
20.         }
    
21.       }
    
22.       else{
    
23.         if(j==1){index=0}
    
24.         temp<-temp+1
    
25.         if(j==dim(data)[1]){
    
26.           if(temp==1) n01<-n01+1
    
27.           else if(temp==2) n02<-n02+1
    
28.           else if(temp==3) n03<-n03+1
    
29.           }
    
30.       }
    
31.     }
    
32.     temp=0
    
33.     index=1
    
34.   }
    
35.   print(n01)
    
36.   print(n02)
    
37.   print(n03)
    
38. 
    
39. }

复制代码

拜托了各位，非常急！