在R中的数据帧中求和一个值和两个条件

我有一个数据框，有三个日期列和一个数字列。第一列是客户何时开始购买，第二列是购买的到期日，第三列是购买的价值，最后一列是客户何时付款

我想把购买的价值加起来，按日期计算，即未付款的金额——这意味着不仅没有付款，而且少于到期时间。数据框如下：

set.seed(3)
open <- as.Date(rep(c("2017-03-22","2017-03-23","2017-03-24","2017-03-25"), 3), format = "%Y-%m-%d") #Purchase's open date
due <- open + 3 #Due date's purchase
purchase <- purchase <- round(runif(12, 50,150),2) #Quando ele gastou
paid <-     as.Date(c("2017-03-22",NA,"2017-03-24","2017-03-25",NA,"2017-03-23",NA,"2017-03-25",NA,"2017-03-23",NA,NA)) #Value of purchase

base <- data.frame(open,due,purchase,paid)

set.seed（3）
像这样打开：

library(dplyr)
today <- Sys.Date()
base %>% 
  group_by(open) %>% 
  summarize(value_open = sum(purchase[today < due || is.na(paid)]))

库（dplyr）
今天%
分组依据（开放）%>%
总结（价值=金额（购买[今天<到期| |是.na（已支付）]）