子集数据并计算时差

Question

我有以下数据框，并且我想为每个用户计算最旧日期和最新日期之间的时差。

> data1
      date    user  PC
1 1/4/2010 BAC0081 PC1
2 1/5/2010 BAC0081 PC2
3 1/6/2010 BAC0081 PC3
4 1/7/2010 BAC0081 PC4
5 1/4/2010 BAC0082 PC5
6 1/5/2010 BAC0082 PC6
7 1/6/2010 BAC0082 PC7
> 

我期望的结果是；

BAC0081 3天

BAC0082 2天

我找不到执行此功能的有效方法。 任何人都可以建议我执行此操作的正确方法。

谢谢

Answer 1

如果您的日期列格式正确：

lapply(split(data1[, 1], data1[, 2]), function(x) range(x)[2] - range(x)[1])