如何检查是否连续几天满足条件（在R中）

Question

我对 R 相当陌生，我正在尝试确定满足两个条件的位置

1. 前两天至少售出 7 件或更多商品
2. 前两天至少 3 小时售出 80 件或更多的商品

这将在满足这两个条件的日子里显示在闪亮的应用程序中。

我想过用data.table：

group_by(group = data.table::rleid(items_sold < 80),
                         group1 = cumsum(date_time - lag(date_time, default = first(date_time)) > 3600)) 

但这看起来是连续几个小时...... 我完全迷路了，非常欢迎任何帮助！

我的数据集： My_dataset

Answer 1

使用包 lubridate 和 dplyr 按天分组时间

如果您将 your_data 替换为您所称的数据，这应该可以工作。

你的条件正确吗？感觉应该是 80 件商品在两天内至少三个小时内完成了 7 次以上的销售？

请注意，您的问题有点模棱两可 - 我将其视为“两天内总共有 n 次销售”，而不是“至少有 n 次销售”每天两天”。如果您想要后者，则需要调整此代码。

这里的%>% 操作符是一个管道 - 它接受它前面的任何内容并将其作为下一个函数的第一个参数。所以x %>% f(y = 2) 等价于f(x, y = 2)

# You'll need these packages
require(dplyr)
require(lubridate)

### Creating a 'daily sales' column
 your_data %>%
   ## Group the hours into days w/ lubridate::ymd()
   group_by(lubridate::ymd(date_time)) %>%
   ## Create two new columns: items sold per day, and total hours
   ## in the day that sales exceeded 80
   mutate(sales_today = sum(items_sold),
          hours_exceeding = sum(items_sold >= 80)) %>% 
   # ungroup and overwrite
   ungroup -> your_data 

### Get columns for previous two days
 your_data %>% 
   group_by(lubridate::ymd(date_time)) %>% # still 'thinking in days'
   ## 'shift' existing columns to compare each day with previous two
   mutate(sales_yesterday = lag(sales_today, n = 1),
          sales_day_before = lag(sales_today, n = 2),
          hours_exceeding_yesterday = lag(hours_exceeding, n = 1),
          hours_exceeding_day_before = lag(hours_exceeding, n = 2)
          ) %>% 
   ## Use new columns to get totals for previous two days
   mutate(sales_last_two_days =
            sales_yesterday + sales_day_before,
          hours_exceeding_last_two_days =
            hours_exceeding_yesterday + hours_exceeding_day_before) %>% 
   ## Drop unwanted columns
   select(-sales_yesterday, -sales_day_before,
          -hours_exceeding_yesterday, -hours_exceeding_day_before) %>%  
   ## Create a logical which indicates that the criteria are met
   mutate(meets_criteria = 
            hours_exceeding_last_two_days >= 3 &
            sales_last_two_days >= 7) %>% 
   ungroup -> your_data