Fraude et analyse des réseaux sociaux

Détection de la fraude en R

Bart Baesens

Professor Data Science at KU Leuven

La fraude : un phénomène social ?

Intuition : les relations entre personnes
Voit-on des effets indiquant que la fraude est un phénomène social ?

Réseau social

La fraude : un phénomène social ?

Les fraudeurs ont tendance à se regrouper :
- participent aux mêmes événements/activités
- sont impliqués dans les mêmes délits
- utilisent les mêmes ressources
- sont parfois la même personne (usurpation d'identité)

Homophilie

Homophilie dans les réseaux sociaux (sociologie)
Les gens ont fortement tendance à s'associer à d'autres qu'ils perçoivent comme leur ressemblant d'une manière ou d'une autre.

Homophilie dans les réseaux de fraude
Les fraudeurs sont plus souvent liés à d'autres fraudeurs, et les personnes légitimes à d'autres personnes légitimes.

Homophilie – fraude à la sécurité sociale

Le réseau présente-t-il des motifs d'homophilie statistiquement significatifs ?

assortativity_nominal(network, types = V(network)$isFraud, directed = FALSE)

homophilie_réseau

Usurpation d'identité

Avant : la personne appelle ses contacts fréquents

Usurpation d'identité

Avant : la personne appelle ses contacts fréquents

Après : la personne appelle de nouveaux contacts qui, « par hasard », recoupent les contacts d'une autre personne

Passeurs d'argent

Passeur d'argent = personne qui transfère de l'argent acquis illégalement (p. ex. volé)
Bénéficiaire d'une transaction frauduleuse
Transfère l'argent volé pour le compte d'autrui (opérateur d'arnaque)

réseau_de_comptes

V(network)$name

"ID02" "ID11" "ID04" "ID03" "ID08" ... "ID16" "ID10" "ID07"

print(list_money_mules)

"ID01" "ID02" "ID03" "ID04"

V(network)$isMoneyMule <- ifelse(V(network)$name %in% list_money_mules, TRUE, FALSE)

V(network)$color <- ifelse(V(network)$isMoneyMule, "darkorange", "lightblue")

vertex_attr(network)

$isMoneyMule
TRUE FALSE  TRUE  TRUE FALSE ... FALSE FALSE FALSE
$color
"darkorange" "lightblue" "darkorange" ... "lightblue" "lightblue"

Réseau avec passeurs d'argent mis en évidence

plot(network)

réseau_mules

Passons à la pratique !

Détection de la fraude en R