Code
%>%
salaires_PCS print_table_conditional
Data - INSEE
%>%
salaires_PCS print_table_conditional
%>%
salaires_top print_table_conditional
%>%
salaires_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