tidyverse 是否提供基于 xts 范围的查询？

Question

xts 允许像这样的基于自然范围的时间查询 willsh["1979-12-31/2017-12-31"]

tidyverse 提供类似的东西吗？

Answer 1

没有 dplyr 或 tidyverse 没有这样的语法。你可以使用 filter like

library(dplyr)

willsh %>% 
   filter(Date >= as.Date("1979-12-31"), Date <= as.Date("2017-12-31"))

或使用between：

willsh %>%
  filter(between(Date, as.Date("1979-12-31"), as.Date("2017-12-31")))

Answer 2

lubridate 有间隔 class。这些中的任何一个都可以用来表示从 1979-12-31 到 2017-12-31 的时间间隔。

library(dplyr)
library(lubridate)

ival1 <- interval("19791231/20171231")
ival1a <- interval("1979-12-31/2017-12-31") 
ival2 <- interval("19791231/P38Y")
ival2a <- interval("1979-12-31/P38Y")
ival3 <- interval(ymd(19791231), ymd(20171231))
ival3a <- interval(ymd("1979-12-31"), ymd("2017-12-31"))

sapply(list(ival1, ival1a, ival2, ival2a, ival3, ival3a), identical, ival1)
## [1] TRUE TRUE TRUE TRUE TRUE TRUE

%within%可用于判断日期是否在区间内

ymd(c(19791230, 19791231, 19800101, 20171230, 20171231, 20180101)) %within% ival1
## [1] FALSE  TRUE  TRUE  TRUE  TRUE FALSE

我们可以这样使用：

# test input
willsh <- tibble(Date = seq(ymd(19700101), ymd(20210101), by = "10 year"), 
             year = year(Date))

willsh %>% filter(Date %within% interval("1979-12-31/2017-12-31"))
## # A tibble: 4 x 2
##   Date        year
##   <date>     <dbl>
## 1 1980-01-01  1980
## 2 1990-01-01  1990
## 3 2000-01-01  2000
## 4 2010-01-01  2010

Answer 3

我们可以使用

library(data.table)
setDT(willsh)[between(Date, as.IDate("1979-12-31"), as.IDate("2017-12-31"))]

tidyverse 是否提供基于 xts 范围的查询？

Does tidyverse offer xts range-based queries?

r

tidyverse

xts