Modification tableaux récapitulatifs

Calcul en variation pour m-1 et m-12 et réordonnancement des colonnes

Et également déplacement des lignes de calcul des variables evol_stock

programmes/Note_mensuelle_contrats_aides.Rmd

@@ -89,9 +89,6 @@ total_IAE <- bind_rows(
 ) %>% 
   mutate(across(everything(), round, 1))
 
-Evol_Stock_a_IAE <- totalFE_IAE$Stock_m-totalFE_IAE$Stock_a_1
-Evol_Stock_m_IAE <- totalFE_IAE$Stock_m-totalFE_IAE$Stock_m_1
-
 colnames(total_IAE) <- c(
   paste0(months(d_a1), " ", year(d_a1)),
   paste0(months(d_m1), " ", year(d_m1)),
@@ -160,6 +157,9 @@ Stock_FE_iae <- totalFE_IAE$Stock_m
 Entree_FE_m_iae <- totalFE_IAE$Entree_m
 Entree_Jeunes_m_iae <- totalJeune_IAE$Entree_m
 
+Evol_Stock_a_IAE <- totalFE_IAE$Stock_m-totalFE_IAE$Stock_a_1
+Evol_Stock_m_IAE <- totalFE_IAE$Stock_m-totalFE_IAE$Stock_m_1
+
 ## calcul des chiffres de la note mensuelle - CIE-CUI
 Stock_FE_cui <- TdB["Somme", "Stock_m"]
 Stock_FE_PEC <- TdB["PEC", "Stock_m"]
@@ -262,11 +262,29 @@ IAE_SL$FE %>%
 #### Contrats aidés (en milliers de personnes)
 
 ```{r echo=FALSE}
-kable(TdB_fusion, row.names = TRUE, format.args = list(decimal.mark = ',')) %>% 
+TdB_fusion2 <- TdB_fusion
+TdB_fusion2[,1] <- TdB_fusion[,3]-TdB_fusion[,1]
+TdB_fusion2[,2] <- TdB_fusion[,3]-TdB_fusion[,2]
+TdB_fusion2[,6] <- TdB_fusion[,8]-TdB_fusion[,6]
+TdB_fusion2[,7] <- TdB_fusion[,8]-TdB_fusion[,7]
+TdB_fusion2 <- TdB_fusion2[,c(3,2,1,5,4,8,7,6)]
+
+TdB_fusion2[c(2,3,7,8)] <- lapply(
+  TdB_fusion2[c(2,3,7,8)],
+  \(x) paste0(signe(x), format(abs(round(x, 1)), decimal.mark=",", trim=TRUE))
+)
+
+colnames(TdB_fusion2)[c(2,3,7,8)] <- paste0(
+  "variation depuis ", colnames(TdB_fusion2)[c(2,3,7,8)]
+)
+colnames(TdB_fusion2) <- sub(".1", "", colnames(TdB_fusion2), fixed=TRUE)
+
+TdB_fusion2 %>% 
+  kable(align="r", row.names = TRUE, format.args = list(decimal.mark = ',')) %>% 
   kable_styling(c("bordered", "striped")) %>% 
   add_header_above(
-  c("", "Entrées mensuelles" = 3, "Entrées cumulées" = 2, "Stock en fin de mois" = 3)
-) %>% 
+    c("", "Entrées mensuelles" = 3, "Entrées cumulées" = 2, "Stock en fin de mois" = 3)
+  ) %>% 
   column_spec(1, bold=TRUE)
 
 ```
@@ -274,11 +292,29 @@ kable(TdB_fusion, row.names = TRUE, format.args = list(decimal.mark = ',')) %>%
 #### Insertion par l'activité économique (en milliers de personnes)
 
 ```{r echo=FALSE}
-kable(total_IAE, row.names = TRUE, format.args = list(decimal.mark = ',')) %>% 
+total_IAE2 <- total_IAE
+total_IAE2[,1] <- total_IAE[,3]-total_IAE[,1]
+total_IAE2[,2] <- total_IAE[,3]-total_IAE[,2]
+total_IAE2[,7] <- total_IAE[,9]-total_IAE[,7]
+total_IAE2[,8] <- total_IAE[,9]-total_IAE[,8]
+total_IAE2 <- total_IAE2[,c(3,2,1,6,5,4,9,8,7)]
+
+total_IAE2[c(2,3,8,9)] <- lapply(
+  total_IAE2[c(2,3,8,9)],
+  \(x) paste0(signe(x), format(abs(round(x, 1)), decimal.mark=",", trim=TRUE))
+)
+
+colnames(total_IAE2)[c(2,3,8,9)] <- paste0(
+  "variation depuis ", colnames(total_IAE2)[c(2,3,8,9)]
+)
+colnames(total_IAE2) <- sub(".1", "", colnames(total_IAE2), fixed=TRUE)
+
+total_IAE2 %>% 
+  kable(align="r", row.names = TRUE, format.args = list(decimal.mark = ',')) %>% 
   kable_styling(c("bordered", "striped")) %>% 
   add_header_above(
-  c("", "Entrées mensuelles" = 3, "Entrées cumulées" = 3, "Stock en fin de mois" = 3)
-) %>% 
+    c("", "Entrées mensuelles" = 3, "Entrées cumulées" = 3, "Stock en fin de mois" = 3)
+  ) %>% 
   column_spec(1, bold=TRUE)
 ```