Étude de cas : fraude électorale

Inférence pour des données catégorielles en R

Andrew Bray

Assistant Professor of Statistics at Reed College

Fraude électorale

Achat de votes
Voter deux fois
Modifier les totaux

¹ L'expression « fraude électorale » peut désigner plusieurs choses, dont l'achat de votes, le dépôt de deux bulletins à des endroits différents et le bourrage d'urnes avec de faux bulletins. Nous allons nous concentrer sur une variante du troisième : quand des responsables électoraux tripotent les totaux d'un bureau de vote. Par exemple, imaginez que voici les totaux de votes, en fin de soirée, pour plusieurs bureaux de votre ville.

Fraude électorale

Achat de votes
Vote en double
Modification des totaux

Loi de Benford, alias « loi du premier chiffre »

library(gapminder)
gapminder %>%
  filter(year == 2007) %>%
  select(country, pop)

# A tibble: 142 x 2
   country           pop
   <fct>           <int>
 1 Afghanistan  31889923
 2 Albania       3600523
 3 Algeria      33333216
 4 Angola       12420476
 5 Argentina    40301927
 6 Australia    20434176
 7 Austria       8199783
 8 Bahrain        708573
 9 Bangladesh  150448339
10 Belgium      10392226
# … with 132 more rows

Loi de Benford, alias « loi du premier chiffre »

Si l'élection est régulière, les décomptes suivent la loi de Benford.
Si l'élection est frauduleuse, ils ne la suivent pas.

Élection iranienne de 2009

iran %>%
  select(city, ahmadinejad, mousavi, total_votes_cast)

# A tibble: 366 x 4
   city          ahmadinejad mousavi total_votes_cast
   <chr>               <dbl>   <dbl>            <dbl>
 1 Azar Shahr          37203   18312            56712
 2 Asko                32510   18799            52643
 3 Ahar                47938   26220            75500
 4 Bostan Abad         38610   12603            51911
 5 Bonab               36395   33695            71389
 6 Tabriz             435728  419983           876919
 7 Jalfa               20520   14340            35295
 8 Chahar o Imaq       12197    3975            16375
 9 Sarab               53196   17669            72152
10 Shabestar           37099   39182            77459
# … with 356 more rows

Passons à la pratique !

Inférence pour des données catégorielles en R