函数用于计算总时间除以在r中花费的总时间

我不熟悉用R编写函数，想知道是否有人能帮我设计一个函数，当计数>31时，计算每个id的时间（秒），然后除以总时间（秒）。然后我需要为所有ID添加这个分数

  id           timestamp      count
4466    12/1/14 19:57:00         47
4466    12/1/14 19:57:05         47
4466    12/1/14 19:57:10         47
4466    12/1/14 19:57:15         46
4466    12/1/14 19:57:20         45
1136    3/23/15 23:00:00         30
1136    3/23/15 23:00:05         32
1136    3/23/15 23:00:10         30

---

谢谢

您如何定义总时间？听起来像是一个典型的数据表问题，如果我理解正确的话：data[count>31，newvariable:=sum（timestamp）-timestamp，by=id]总时间将是每个id表示的秒数，而不考虑计数。例如：id 1136的总时间是10秒（23:00:00到23:00:10）？假设从23:00:05到23:00:10，计数为32，那么=5秒=0.5？