r - R 子集数据框，其中日期小于可变日期

Question

我正在尝试选择日期需要小于（计算/可变）日期的数据框子集。

以下代码引发错误：

loanFrame_excluding_young <- loanFrame[loanFrame$LoanEffective < AddMonths(as.Date("2015-11-11"),-loanFrame$TermMonths),]
Error in seq.Date(X[[i]], ...) : 'by' must be of length 1

有任何想法吗？

Answer 1

问题在于 DescTools::AddMonths 函数。在 AddMonths(x, n, ceiling = TRUE) 中，n 只能是单个数字，不能是向量。

使用以下代码确实可以使用 lubridate 的 %m-% 函数。

library(lubridate)

loanFrame <- data.frame(TermMonths = c(1,3,5,7), 
                        LoanEffective = as.Date(c("2015-09-15", "2015-08-05", "2015-10-01", "2015-06-25")))

loanFrame_excluding_young <- loanFrame[loanFrame$LoanEffective < as.Date("2015-11-11") %m-% months(loanFrame$TermMonths),]

loanFrame_excluding_young

  TermMonths LoanEffective
1          1    2015-09-15
2          3    2015-08-05