我希望使用年份列表按日期过滤数据库
years<-c("2014")
yearsdata <- data.frame(animal=c("cow","pig"),
mydate=c(as.Date("2015-01-01"),
as.Date("2014-01-01")))
yearsdata %>%
mutate(mydate =format(mydate, "%Y") %>%
as.character()) %>%
filter(is.null(years) | mydate %in% years)
上面的代码可以运行,让我可以过滤我的数据集,但它也会格式化日期列。有没有办法获得我的过滤结果,而没有在完成的子集数据框中更改日期列的格式?
答案 0 :(得分:7)
如果你想使用lubridate
套餐,你可以这样做:
library("lubridate")
yearsdata %>%
filter(is.null(years) | year(mydate) %in% years)
给出了:
# animal mydate
# 1 pig 2014-01-01
答案 1 :(得分:5)
所有这些管道让我很头疼,我只会这样做
library(data.table)
setDT(yearsdata)[is.null(years) | year(mydate) %in% years]
# animal mydate
# 1: pig 2014-01-01