Вырезать даты в недельные интервалы, обратные текущему дню - PullRequest
1 голос
/ 11 апреля 2020

Мне трудно разделить ряд дат на недельные интервалы с сегодняшнего дня. Я могу точно сократить даты, используя функцию вырезания, но я хочу, чтобы ПОСЛЕДНЯЯ неделя была полной 7-дневной. Вот данные:


df_lim %>%
  mutate(weekly = as.Date(cut(pub_date, breaks = "week"))) %>%
  group_by(weekly, site) %>% 
  mutate(weekly_sum = sum(n)) %>%
  select(pub_date, weekly, weekly_sum) %>%
  print(n=500)

 site    pub_date   weekly     weekly_sum
   <chr>   <date>     <date>          <int>
 1 biorxiv 2020-01-19 2020-01-13          1
 2 biorxiv 2020-01-21 2020-01-20         15
 3 biorxiv 2020-01-22 2020-01-20         15
 4 biorxiv 2020-01-23 2020-01-20         15
 5 biorxiv 2020-01-24 2020-01-20         15
 6 biorxiv 2020-01-25 2020-01-20         15
 7 biorxiv 2020-01-26 2020-01-20         15
 8 biorxiv 2020-01-27 2020-01-27         18
 9 biorxiv 2020-01-28 2020-01-27         18
10 biorxiv 2020-01-29 2020-01-27         18
11 biorxiv 2020-01-30 2020-01-27         18
12 biorxiv 2020-01-31 2020-01-27         18
13 biorxiv 2020-02-02 2020-01-27         18
14 biorxiv 2020-02-03 2020-02-03          9
15 biorxiv 2020-02-04 2020-02-03          9
16 biorxiv 2020-02-07 2020-02-03          9
17 biorxiv 2020-02-08 2020-02-03          9
18 biorxiv 2020-02-10 2020-02-10         14
19 biorxiv 2020-02-11 2020-02-10         14
20 biorxiv 2020-02-12 2020-02-10         14
21 biorxiv 2020-02-13 2020-02-10         14
22 biorxiv 2020-02-14 2020-02-10         14
23 biorxiv 2020-02-15 2020-02-10         14
24 biorxiv 2020-02-18 2020-02-17         26
25 biorxiv 2020-02-19 2020-02-17         26
26 biorxiv 2020-02-20 2020-02-17         26
27 biorxiv 2020-02-21 2020-02-17         26
28 biorxiv 2020-02-24 2020-02-24         10
29 biorxiv 2020-02-27 2020-02-24         10
30 biorxiv 2020-02-28 2020-02-24         10
31 biorxiv 2020-03-02 2020-03-02         33
32 biorxiv 2020-03-03 2020-03-02         33
33 biorxiv 2020-03-04 2020-03-02         33
34 biorxiv 2020-03-05 2020-03-02         33
35 biorxiv 2020-03-06 2020-03-02         33
36 biorxiv 2020-03-07 2020-03-02         33
37 biorxiv 2020-03-08 2020-03-02         33
38 biorxiv 2020-03-09 2020-03-09         27
39 biorxiv 2020-03-10 2020-03-09         27
40 biorxiv 2020-03-12 2020-03-09         27
41 biorxiv 2020-03-14 2020-03-09         27
42 biorxiv 2020-03-15 2020-03-09         27
43 biorxiv 2020-03-17 2020-03-16         30
44 biorxiv 2020-03-20 2020-03-16         30
45 biorxiv 2020-03-21 2020-03-16         30
46 biorxiv 2020-03-22 2020-03-16         30
47 biorxiv 2020-03-23 2020-03-23         32
48 biorxiv 2020-03-24 2020-03-23         32
49 biorxiv 2020-03-25 2020-03-23         32
50 biorxiv 2020-03-26 2020-03-23         32
51 biorxiv 2020-03-27 2020-03-23         32
52 biorxiv 2020-03-28 2020-03-23         32
53 biorxiv 2020-03-29 2020-03-23         32
54 biorxiv 2020-03-30 2020-03-30         64
55 biorxiv 2020-03-31 2020-03-30         64
56 biorxiv 2020-04-01 2020-03-30         64
57 biorxiv 2020-04-02 2020-03-30         64
58 biorxiv 2020-04-03 2020-03-30         64
59 biorxiv 2020-04-04 2020-03-30         64
60 biorxiv 2020-04-05 2020-03-30         64
61 biorxiv 2020-04-06 2020-04-06         54
62 biorxiv 2020-04-08 2020-04-06         54
63 biorxiv 2020-04-09 2020-04-06         54
64 biorxiv 2020-04-10 2020-04-06         54
65 biorxiv 2020-04-11 2020-04-06         54

Мне бы хотелось, чтобы «недельная» переменная формировалась с сегодняшнего дня в обратном направлении, чтобы конец кадра выглядел так, с включением полной недели самый последний еженедельный блок.

...

59 biorxiv 2020-04-04 2020-03-29       
60 biorxiv 2020-04-05 2020-04-06        
61 biorxiv 2020-04-06 2020-04-06         
62 biorxiv 2020-04-08 2020-04-06         
63 biorxiv 2020-04-09 2020-04-06         
64 biorxiv 2020-04-10 2020-04-06         
65 biorxiv 2020-04-11 2020-04-06     

Я пытался сделать несколько вещей, установив для «правильного» параметра значение «ИСТИНА» или «ЛОЖЬ», и, похоже, ничего не работает. Помощь будет принята с благодарностью!

...