日期小于可变日期的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