添加具有月份预测/运行 率的行
Add Row with Month Forecast / Run Rate
我有一个数据框如下：
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/Length -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
任何帮助都会很棒，谢谢！
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)
我不得不添加 "Run Rate" 作为另一个因素。
我有一个数据框如下：
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/Length -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
任何帮助都会很棒，谢谢！
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)
我不得不添加 "Run Rate" 作为另一个因素。