R识别和汇总没有历史记录的余额

Question

我有一组帐户余额超过 4 个月。我想对那个特定月份刚刚出现的余额求和。这是我到目前为止所得到的。

每个月创建一个（新）帐户。

Accounts <- c('A','B','C','A','B','C','A','B','C')
Dates <- as.Date(c('2016-01-31', '2016-01-31','2016-01-31','2016-02-28','2016-02-28','2016-02-28','2016-03-31','2016-03-31','2016-03-31'))
Balances <- c(100,NA,NA,90,50,NA,80,40,120)
Origination <- data.frame(Dates,Accounts,Balances)

library(reshape2)
Origination <- dcast(Origination,Dates ~ Accounts, value.var = "Balances")
Origination$Originated <- apply(Origination[2:4],1,function(x) ifelse(sum(is.na(x))==nrow(Origination),NA,tail(na.omit(x),1)))
Origination <- melt(Origination, id = c("Dates"))
Origination <-dcast(Origination, variable ~ Dates, value.var = "value")

    variable 2016-01-31 2016-02-29 2016-03-31
1          A        100         90         80
2          B         NA         50         40
3          C         NA         NA        120
4 Originated        100         50        120

这将创建一个来源 table，其中包含一个名为 Originated 的行。第一个月我们只有 100，第二个月我们有摊销 A 到 90，还有一个新帐户 50，上个月我们有摊销 A 和 B，新 C 为 120。起源列完全按照我的需要捕获它。

但是，如果我在第 2 个月引入另一个账户 D，它只会选择那个金额 (10)，而不是发起的两个账户的总和。即 50 (B) 加上 10(C)。

Accounts <- c('A','B','C','D','A','B','C','D','A','B','C','D')
Dates <- as.Date(c('2016-01-31', '2016-01-31','2016-01-31','2016-01-31','2016-02-28','2016-02-28','2016-02-28','2016-02-28','2016-03-31','2016-03-31','2016-03-31','2016-03-31'))
Balances <- c(100,NA,NA,NA,90,50,10,NA,80,40,5,120)
Origination <- data.frame(Dates,Accounts,Balances)

library(reshape2)
Origination <- dcast(Origination,Dates ~ Accounts, value.var = "Balances")
Origination$Originated <- apply(Origination[2:4],1,function(x) ifelse(sum(is.na(x))==nrow(Origination),NA,tail(na.omit(x),1)))
Origination <- melt(Origination, id = c("Dates"))
Origination <-dcast(Origination, variable ~ Dates, value.var = "value")

    variable 2016-01-31 2016-02-28 2016-03-31
1          A        100         90         80
2          B         NA         50         40
3          C         NA         10          5
4          D         NA         NA        120
5 Originated        100         10          5

所以问题是，我如何计算跨日期从 A 到 D 的新添加帐户的总和。也许我想多了。我想要的结果是这样的：

    variable 2016-01-31 2016-02-28 2016-03-31
1          A        100         90         80
2          B         NA         50         40
3          C         NA         10          5
4          D         NA         NA        120
5 Originated        100         60        120

非常感谢您的帮助。阿克塞尔

Answer 1

我终于找到了一种方法来获得我想要的输出。有兴趣的朋友可以在这里找到答案。

sel <- rbind(FALSE, !is.na(head(Origination[-1], -1)))
#sel
#         A     B     C     D
#[1,] FALSE FALSE FALSE FALSE
#[2,]  TRUE FALSE FALSE FALSE
#[3,]  TRUE  TRUE  TRUE FALSE

rowSums(replace(Origination[-1], sel, 0), na.rm=TRUE)
#[1] 100  60 120

R识别和汇总没有历史记录的余额

R identifying and aggregating balances with no history

r

aggregation

reshape

data.table