添加具有月预测/运行率的行

Question

我的数据框如下：

Date <- c('2017-01-01','2017-01-02','2017-01-03')
TypeA <- c(44, 45, 70)
TypeB <- c(67, 23, 45)
TOTAL <- c(111, 68, 115)
df<-data.frame(Date,TypeA, TypeB, TOTAL)

Date <- c('Total:')
TypeA <- c(159)
TypeB <- c(135)
TOTAL <- c(294)
df1<-data.frame(Date,TypeA, TypeB, TOTAL)

test11<-rbind(df,df1)

#         Date TypeA TypeB TOTAL
# 1 2017-01-01    44    67   111
# 2 2017-01-02    45    23    68
# 3 2017-01-03    70    45   115
# 4     Total:   159   135   294

如何在数据框下添加一个新行，以显示每列的月份预测？例如，我计划用于TypeA的公式是：159/3 * 31，它是（数据帧的总MTD /长度-1）*月的天数。

我希望最终输出看起来像这样：

        Date TypeA TypeB TOTAL
1 2017-01-01    44    67   111
2 2017-01-02    45    23    68
3 2017-01-03    70    45   115
4     Total:   159   135   294
5  Run Rate:  1643  1395  3038 

任何帮助都会很棒，谢谢！

Answer 1

levels(test11$Date) <- c(levels(test11$Date), 'Run Rate')
runRate <- c(Date = "Run Rate", 
             test11[nrow(test11), 2:ncol(test11)]/(nrow(test11)-1)*31
             )
test11 <- rbind(test11, runRate)

我不得不添加“运行率”作为另一个因素。