子集数据并计算时差

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])