r语言 - 基于特定"Date"筛选数据帧(<1 天或 24 小时)

Question

我正在根据日期筛选数据帧。。。现在如何获取上个月相同日期的数据？

df<-data.frame(
Date=sample(seq(as.Date('2018-10-25'), as.Date('2018-11-20'), by = "day"), 100,replace = T),
category1=sample(letters[1:6],100,replace = T),
count=sample(1:1000,100,replace = T)
)
df%>%filter(Date < Sys.Date()-1 & Date >= Sys.Date()-8) %>%group_by(Date,category1)%>%summarise(Total=sum(count))

Output:
# A tibble: 19 x 3
# Groups:   Date [?]
Date       category1 Total
<date>     <fct>     <int>
1 2018-11-13 a           231
2 2018-11-14 e           763
3 2018-11-14 f            50
4 2018-11-15 a           643
5 2018-11-15 e           745
6 2018-11-15 f           931
7 2018-11-16 b           712
8 2018-11-16 e           416
9 2018-11-16 f           914
10 2018-11-17 a           270
11 2018-11-17 b           837
12 2018-11-17 d          1539
13 2018-11-17 e           251
14 2018-11-18 a          1181
15 2018-11-18 f           966
16 2018-11-19 a           673
17 2018-11-19 b           960
18 2018-11-19 d           768
19 2018-11-19 e           932

上面的输出是11月13日至11月19日，那么如何获得10月相同日期的数据？

Answer 1

如果我理解正确，您可以从当前筛选条件中减去1个月。

library(dplyr)
library(lubridate)
df %>%
filter(Date < (Sys.Date() - 1 - months(1)) & 
Date >= (Sys.Date() - 8 - months(1))) %>%
group_by(Date,category1) %>%
summarise(Total = sum(count))

这将为您提供10月份相同日期的行。

Answer 2

使用"months"时要小心，因为它会从日期中的月份中减去数量。如果新值在一个月中没有那么多天，则会导致问题；例如，2018-03-31 减去1

> x <- ymd(20180331)
> x
[1] "2018-03-31"
> x - months(1)  # the 31th of February does not exist
[1] NA