evt %>%
count(N_DOS) %>%
count(nb_dos=n) %>%
arrange(nb_dos) %>%
mutate(
partn=cumsum(n)/sum(n),
partcond=cumsum(n*nb_dos)/sum(n*nb_dos)
) %>%
head(10) %>%
kable()
| 1 |
3860619 |
0.6516508 |
0.3212392 |
| 2 |
949144 |
0.8118609 |
0.4791944 |
| 3 |
408562 |
0.8808239 |
0.5811828 |
| 4 |
218924 |
0.9177771 |
0.6540488 |
| 5 |
132037 |
0.9400642 |
0.7089823 |
| 6 |
86483 |
0.9546620 |
0.7521594 |
| 7 |
60715 |
0.9649103 |
0.7875238 |
| 8 |
44379 |
0.9724013 |
0.8170657 |
| 9 |
33164 |
0.9779992 |
0.8419017 |
| 10 |
25247 |
0.9822607 |
0.8629095 |
Lecture
- 2/3 des condamnés au casier judiciaire ont une seule condamnation dans leur dossier
- 20% des condamnés (ou 80% si l’on préfère) représentent 50% des condamnations.
- Les 5% de condamnés ayant le plus de condamnations représentent 25% des condamnations.