Analityka sieci społecznościowych

Wykrywanie oszustw w R

Bart Baesens

Professor Data Science at KU Leuven

Elementy sieci społecznościowej

Węzły (wierzchołki)

klienci
firmy
produkty
karty kredytowe
konta
strony internetowe

Przykładowy graf 01

Elementy sieci społecznościowej

Krawędzie

Różne rodzaje relacji, np. przelew, połączenie, znajomość, transmisja choroby, odniesienie

Przykładowy graf 02

Elementy sieci społecznościowej

Krawędzie

Różne rodzaje relacji, np. przelew, połączenie, znajomość, transmisja choroby, odniesienie
Ważone np. na podstawie częstotliwości interakcji, ważności wymiany informacji, bliskości, intensywności emocjonalnej

Przykładowy graf 03

Elementy sieci społecznościowej

Krawędzie

Różne rodzaje relacji, np. przelew, połączenie, znajomość, transmisja choroby, odniesienie
Ważone np. na podstawie częstotliwości interakcji, ważności wymiany informacji, bliskości, intensywności emocjonalnej
Skierowane, np. przychodzące lub wychodzące

Przykładowy graf 04

Reprezentacja sieci społecznościowej

Socjogram

Reprezentacja sieci społecznościowej

Macierz połączeń

Reprezentacja sieci społecznościowej

Lista sąsiedztwa

Reprezentacja sieci społecznościowej

Lista sąsiedztwa

Tworzenie sieci

Ze źródła danych transakcyjnych ...

print(transactions)

   originator beneficiary amount  time benef_country payment_channel
1        ID14        ID16    102 22:47           GBR         CHAN_04
2        ID14        ID15    125 20:21           USA         CHAN_02
3        ID02        ID01   1067 10:45           CAN         CHAN_04
4        ID05        ID06     59 15:40           USA         CHAN_02

... do sieci za pomocą funkcji graph_from_data_frame()

library(igraph)
network <- graph_from_data_frame(transactions, directed = FALSE)

plot(network)

Prosta sieć

E(network)

+ 16/16 edges from 297af3c (vertex names):
 [1] ID02--ID01 ID11--ID04 ID04--ID01 ID04--ID03 ID03--ID01 ID08--ID09
 [7] ID14--ID15 ID03--ID14 ID05--ID06 ID11--ID12 ID02--ID05 ID11--ID13
[13] ID02--ID08 ID14--ID16 ID08--ID10 ID05--ID07

V(network)

+ 16/16 vertices, named, from 297af3c:
ID02 ID11 ID04 ID03 ID08 ID14 ID05 ID01 ID09 ID15 ID06 ID12 ID13 ID16 ID10 ID07

V(network)$name

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

Nakładające się krawędzie

plot(net)

E(net)$width <- count.multiple(net)

edge_attr(net)

$width
7 7 7 7 7 7 7 1 1 1 4 4 4 4 1 1

Nakładające się krawędzie

E(net)$curved <- FALSE
plot(net)

Ważone krawędzie

Czas na ćwiczenia!

Wykrywanie oszustw w R