删除日期早于特定日期30天的行

Question

有一个数据框：

date <- c("2019-01-03", "2017-02-03", "2018-12-30", "2018-08-12")
date <- as.Date(date, format = "%Y-%m-%d")
variable <- c(1,2, 100, 500)
df <- data.frame(date, variable)

特殊的特定日期：

special_date <- c("2019-01-04")
special_date <- as.Date(special_date, format = "%Y-%m-%d")

如何删除所有日期早于特殊日期 30天的行？

#expected outcome
#        date variable
#1 2019-01-03        1
#3 2018-12-30      100

Answer 1

我们可以在0.5中的12.5中使用逻辑条件

subset

---

或者使用base R中的subset(df, date > (special_date - 30)) # date variable #1 2019-01-03 1 #3 2018-12-30 100

filter