Code
salaires_PCS %>%
print_table_conditionalData - INSEE
salaires_PCS %>%
print_table_conditionalsalaires_top %>%
print_table_conditionalsalaires_PCS %>%
arrange(- `Salaire moyen en EQTP`) %>%
mutate(`Masse salariale` = 12*`Salaire moyen en EQTP`* `Effectifs en EQTP`/1000,
`Cumul. Effectifs en EQTP` = cumsum(`Effectifs en EQTP`),
`Cumul. Masse salariale` = cumsum(`Masse salariale`)) %>%
print_table_conditional