Oszustwa i analiza sieci społecznych

Wykrywanie oszustw w R

Bart Baesens

Professor Data Science at KU Leuven

Czy oszustwo jest zjawiskiem społecznym?

Intuicja: relacje między ludźmi
Czy istnieją efekty wskazujące, że oszustwo jest zjawiskiem społecznym?

Przykład sieci społecznej

Czy oszustwo jest zjawiskiem społecznym?

Oszuści mają tendencję do skupiania się:
- uczestniczą w tych samych wydarzeniach/aktywnościach
- biorą udział w tych samych przestępstwach
- korzystają z tych samych zasobów
- są czasem tą samą osobą (kradzież tożsamości)

Homofilia

Homofilia w sieciach społecznych (z socjologii)
Ludzie mają silną tendencję do nawiązywania kontaktów z osobami postrzeganymi jako podobne do siebie.

Homofilia w sieciach oszustw
Oszuści częściej łączą się z innymi oszustami, a uczciwi ludzie — z innymi uczciwymi ludźmi.

Homofilia – oszustwa ubezpieczeń społecznych

Czy sieć zawiera statystycznie istotne wzorce homofilii?

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

Sieć z homofilią

Kradzież tożsamości

Wykres sieci przed kradzieżą tożsamości

Przed: osoba dzwoni do swoich stałych kontaktów

Kradzież tożsamości

Wykres sieci po kradzieży tożsamości

Przed: osoba dzwoni do swoich stałych kontaktów

Po: osoba dzwoni do nowych kontaktów, które przypadkowo pokrywają się z kontaktami innej osoby

Słupy finansowe

Słup = osoba transferująca nielegalnie pozyskane środki (np. skradzione)
Beneficjent oszukańczej transakcji
Przekazuje skradzione pieniądze w imieniu operatora oszustwa

Sieć kont bankowych

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"

Sieć z wyróżnionymi słupami finansowymi

plot(network)

Sieć ze słupami finansowymi

Czas na ćwiczenia!

Wykrywanie oszustw w R