高手，你上面两部分代码真心有用，太感谢了！
我还有个小小的问题，如果我想要循环计算OC那列每段之和，怎么写啊
每段还是按照之前的1800分隔开。。。

拜托拜托你了，谢谢。

PS:这个做完，我这份数据清洗就全部完工了。

uu换成t[,1]   #OC 列  即可

十分感谢

老师，我想计算#OC列：每段（之前以1800秒分割）首尾OC数值之差，怎么写呢？
我试着写了，总是错误，运行不出来，请教您。谢谢。

这个应该就是diff之后的和值了，也就是你说的每段首尾只差运行完都检查一下吧，我都快混了。

学习了，多谢。

学习了，感谢感谢

老师您好，之前您写的这段代码，将所有数据以间隔大于1800秒为依据，分成了若干组，给出了这些分组数据的所在位置：
as.vector(diff(time))    #之前最后一句错误，已改

  [1]   3 305   4   5   2   4   4   3   4   4   4 979   4   4   4   4   4   4

[19]   4   4   4   4   4   4   4   4   4   3   4   4   4   4   4   4   4   4

[37]   4   4   4   4   4   4   4   4   3   4   4   4   4   4   4   4   4   4

[55]   4   4   4   4   4   4   4   4   4   4   4   3   4   4   4   4   4   4

[73]   4   4   4   4   4   4   4   4   4   4   4   4   3   5   3   4   4   4

[91]   4   4   4   5   4  28   4  25   4   4   4   4   4   4   4   4   4   3

[109]   4   4   4   4   4   4   4   4   4    ...

uu=as.vector(diff(time))    #取了一部分结果

p=which(uu>20);p      #以20为例    可改1800    p为大于20所在位置

[1]  2 12 96 98

p=c(0,which(uu>20),length(uu)+1)      #扩展p的边界位置


我现在想请教的问题是：如何将这些分组后，每组的起始时间与结束时间，以及这些时间所对应的OC数据筛选出来，也就是只看每组的起始时间与结束时间的数据。

谢谢老师
盼回复！！！！

非常感谢啦！！学习了@yywan0913  

从diff(time)就开始错，错误显示是
Error in r[i1] - r[-length(r):-(length(r) - lag + 1L)] :
  non-numeric argument to binary operator

请问是怎么回事？