如何简化给定天数的筛选代码

Question

当从数据过滤一些天值时，我不得不在过滤器条件句中多次重复“as.Date”。有什么办法可以简化吗？谢谢!

library(tidyverse)
test_data <- data.frame(mday=seq.Date(as.Date('2021-1-1'),
                        as.Date('2021-12-30'),by="1 day"),
                        value=rnorm(364))
# can't work
test_data %>% filter(mday %in% c(as.Date('2021-1-1','2021-7-1','2021-10-7')))

# can work, but have to repeat 'as.date' many times
test_data %>% filter(mday %in% c(as.Date('2021-1-1'),
                                 as.Date('2021-7-1'),
                                 as.Date('2021-10-7')))

Answer 1

你们关系很好。应：

test_data %>% filter(mday %in% as.Date(c('2021-1-1','2021-7-1','2021-10-7')))

这是因为首先您需要创建一个向量，即使用c()函数，然后您可以对该向量执行修改，在您的情况下将向量更改为date。