如何实现一个滚动功能分区到另一列？

我有一些数据，看起来像如何实现一个滚动功能分区到另一列？

CustomerID   InvoiceDate 
     <fctr>    <dttm> 
1  13313 2011-01-04 10:00:00 
2  18097 2011-01-04 10:22:00 
3  16656 2011-01-04 10:23:00 
4  16875 2011-01-04 10:37:00 
5  13094 2011-01-04 10:37:00 
6  17315 2011-01-04 10:38:00 
7  16255 2011-01-04 11:30:00 
8  14606 2011-01-04 11:34:00 
9  13319 2011-01-04 11:40:00 
10  16282 2011-01-04 11:42:00

它告诉我，当一个人进行交易。我想知道每个客户之间的交易时间，最好是几天。我在下面的方式做到这一点

d <- data %>% 
    arrange(CustomerID,InvoiceDate) %>% 
    group_by(CustomerID) %>% 
    mutate(delta.t = InvoiceDate - lag(InvoiceDate), #calculating the difference 
      delta.day = as.numeric(delta.t, unit = 'days')) %>% 
    na.omit() %>% 
    arrange(CustomerID) %>% 
    inner_join(Ntrans) %>% #Existing data.frame telling me the number of transactions per customer 
    filter(N>=10) %>% #only want people with more than 10 transactions 
    select(-N)

但是，结果是没有意义的（如下图所示）

CustomerID   InvoiceDate delta.t delta.day 
     <fctr>    <dttm>  <time>  <dbl> 
1  12415 2011-01-10 09:58:00 5686 days  5686 
2  12415 2011-02-15 09:52:00 51834 days  51834 
3  12415 2011-03-03 10:59:00 23107 days  23107 
4  12415 2011-04-01 14:28:00 41969 days  41969 
5  12415 2011-05-17 15:42:00 66314 days  66314 
6  12415 2011-05-20 14:13:00 4231 days  4231 
7  12415 2011-06-15 13:37:00 37404 days  37404 
8  12415 2011-07-13 15:30:00 40433 days  40433 
9  12415 2011-07-13 15:31:00  1 days   1 
10  12415 2011-07-19 10:51:00 8360 days  8360

以天计的差异路要走。我想要的东西是接近SQL的滚动窗口函数的客户ID分区。我怎样才能实现这个？

来源

2017-05-27 Demetri P

看来delta.t在几分钟而不是几天就给出结果。请参阅第8行和第9行的区别。 –

哦，那太奇怪了。 –

当InvoiceDate类是POSIXct类时，delta.t对我很好用 –

如果你只是想给差变化来天就可以使用包lubridate。

> library('lubridate') 
> library('dplyr') 
> 
> InvoiceDate <- c('2011-01-10 09:58:00', '2011-02-15 09:52:00', '2011-03-03 10:59:00') 
> CustomerID <- c(111, 111, 111) 
> 
> dat <- data.frame('Invo' = InvoiceDate, 'ID' = CustomerID) 
> 
> dat %>% mutate('Delta' = as_date(Invo) - as_date(lag(Invo))) 
       Invo ID Delta 
1 2011-01-10 09:58:00 111 NA days 
2 2011-02-15 09:52:00 111 36 days 
3 2011-03-03 10:59:00 111 16 days

来源

2017-05-28 07:07:59

如何实现一个滚动功能分区到另一列？

回答

相关问题