我很困惑dplyr group_by函数如何处理Date对象 . 这是一个按预期工作的示例 .

library(data.table); library(dplyr); library(lubridate)

DT <- data.table(A = sample(1:100,12), B = (c("7-1-2015", "7-2-2015",  "7-3-2015")))
DT$B <- mdy(DT$B)
Daily_PL <- DT %>%
  group_by(B) %>%
  summarise(Avg_Value = cumsum(A))

当我尝试对数据使用group_by函数时,我实际感兴趣的是它返回一个值或错误 . 我已经提供了一个包含数据的Dropbox链接 . 谢谢 .

# Link to data
# https://www.dropbox.com/s/xo84accwtvoiw8s/Daily_Transactions.csv?dl=0
data <- read.csv("Daily_Transactions.csv", header=T)
data$Date <- mdy(data$Date)

Daily_PL <- data %>%
  group_by(Date) %>%
  summarise(Avg_Value = cumsum(Transaction))

返回以下错误:

错误:期待单个值