一个data.frame中给定的截至另一个data.frame中给定日期的总和计数

我想用另一个数据框内的比较来更新

审计

数据框：

测试

：特定日期患者人数的数据框：

test <- data.frame(
        date=as.Date(c("2012-12-12","2012-12-29","2013-01-15")),
        patients=c(4,7,3)
)
        date patients
1 2012-12-12        4
2 2012-12-29        7
3 2013-01-15        3

audit <- data.frame(date=as.Date(c("2012-12-31","2013-01-31")),
         count=c(NA))
        date count
1 2012-12-31    NA
2 2013-01-31    NA

问：

审计$count

应为截至

审计$date

为止

测试中的患者总数

这不起作用：

audit$count <- sum(test[test$date < audit$date,]$patients)

audit$count一种方法是对
audit$date
的值使用
sapply
：

audit$count <- sapply(audit$date, function(x) sum(test$patients[test$date < x]))

        date count
1 2012-12-31    11
2 2013-01-31    14

审核$count+1！用准确的答案打败我！（祝贺10公里，即使有点晚）@agstudy谢谢。我想，SO上的R用户都跟不上你的速度