根据特定的“日期”(〈1天或24小时)过滤 Dataframe

blpfk2vs  于 2022-12-06  发布在  其他
关注(0)|答案(2)|浏览(104)

我正在根据日期过滤数据框...现在如何获得上个月相同日期的数据?

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月份相同日期的数据呢?

yyyllmsg

yyyllmsg1#

如果我没理解错的话,您可以从当前筛选条件中减去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))

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

ckx4rj1h

ckx4rj1h2#

使用“months”一定要小心,因为它会从日期中的月份减去数量。如果新值在月份中没有那么多天,则会导致问题;例如,2018年3月31日减1

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

相关问题