Analytika sociálních sítí

Detekce podvodů v R

Bart Baesens

Professor Data Science at KU Leuven

Komponenty sociální sítě

Uzly (vrcholy)

zákazníci
společnosti
produkty
platební karty
účty
webové stránky

Graf toy_graph_01.png

Komponenty sociální sítě

Hrany

Různé typy vztahů, např. převod peněz, hovor, přátelství, přenos nemoci, odkaz

Graf toy_graph_02.png

Komponenty sociální sítě

Hrany

Různé typy vztahů, např. převod peněz, hovor, přátelství, přenos nemoci, odkaz
Vážené podle např. frekvence interakcí, důležitosti výměny informací, intimity, emocionální intenzity

Graf toy_graph_03.png

Komponenty sociální sítě

Hrany

Různé typy vztahů, např. převod peněz, hovor, přátelství, přenos nemoci, odkaz
Vážené podle např. frekvence interakcí, důležitosti výměny informací, intimity, emocionální intenzity
Orientované, např. příchozí nebo odchozí

Graf toy_graph_04.png

Reprezentace sociální sítě

Sociogram

Reprezentace sociální sítě

Matice sousednosti

Reprezentace sociální sítě

Seznam sousedů

Reprezentace sociální sítě

Seznam sousedů

Vytvoření sítě

Z transakčního zdroje dat ...

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

... k síti pomocí funkce graph_from_data_frame()

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

plot(network)

Jednoduchá síť

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"

Překrývající se hrany

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

Vícenásobné hrany

Překrývající se hrany

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

Vážené hrany

Lass uns üben!

Detekce podvodů v R