在一个data.frame中给出的总计数直到另一个data.frame中给出的日期

Question

我想用另一个数据框中的比较更新audit数据框：

test ：特定日期患者数量的数据框：

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 ：审核日期的数据框：

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

问： audit$count 应 test { { {1}}

这不起作用：

audit$date

如何做到最好？

Answer 1

一种方法是将sapply与值audit$date：

一起使用

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