Ajouter une ligne avec Mois Prévision/Taux d'exécution de

Question

J'ai dataframe comme suit:

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 

Comment puis-je ajouter une nouvelle ligne sous la trame de données qui montre les prévisions pour le mois pour chaque colonne? La formule que je prévois d'utiliser pour TypeA par exemple est: 159/3 * 31 qui est le (Total MTD/Longueur -1 de la trame de données) * Jours du Mois.

Je veux la sortie finale pour ressembler à ceci:

 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 

Toute aide serait génial, merci!

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) 

Je devais ajouter "Run Rate" comme un autre facteur.