如何在R中运行循环以找到7范围内的唯一数字组合？

Question

我有一个看起来像这样的数据集：

Key Days
A 1
A 2
A 3
A 8
A 9
A 36
A 37
B 14
B 15
B 44
B 45

我想根据7天一组来分割各个密钥。例如：-

Key Days
A 1
A 2
A 3

Key Days
A 8
A 9

Key Days
A 36
A 37

Key Days
B 14
B 15

Key Days
B 44
B 45

我可以使用ifelse并指定1-7、7-14等存储桶，直到63-70（天的最大可能值）。 但是，问题出在“天”列中。 在很多情况下，几天之间存在重叠-以第14-15天为例，如果使用ifelse逻辑（7-14和15-21）进行划分，则会分成2个括号。 拆分此日期的理想方法是确定一天并将其添加7天，并检查实际上属于该类别的数据行数。 我认为我们需要为此使用循环。 我可以在excel中做到这一点，但我有20000个键的20000行数据，因此我使用R。我需要一个循环来检查每个键的值，并为每个键进一步检查day的值并将它们存储在7通过检查每个范围的第一天值。

Answer 1

我们通过在“天”列上应用%/%来创建分组变量，然后根据该“ grp”将数据集split为一个list 。

grp <- df$Day %/%7
split(df, factor(grp, levels = unique(grp)))
#$`0`
#  Key Days
#1   A    1
#2   A    2
#3   A    3

#$`1`
#  Key Days
#4   A    8
#5   A    9

#$`5`
#  Key Days
#6   A   36
#7   A   37

#$`2`
#  Key Days
#8   B   14
#9   B   15

#$`6`
#   Key Days
#10   B   44
#11   B   45

更新资料

如果我们也需要按“键”分开

lst <- split(df, list(factor(grp, levels = unique(grp)), df$Key), drop=TRUE)