Sosyal ağ analitiği

R ile Dolandırıcılık Tespiti

Bart Baesens

Professor Data Science at KU Leuven

Sosyal ağ bileşenleri

Düğümler (köşeler)

müşteriler
şirketler
ürünler
kredi kartları
hesaplar
web sayfaları

oyuncak grafik 01

Sosyal ağ bileşenleri

Kenarlar

Farklı ilişki türleri; ör. para transferi, arama, arkadaşlık, hastalık bulaşması, referans

oyuncak grafik 02

Sosyal ağ bileşenleri

Kenarlar

Farklı ilişki türleri; ör. para transferi, arama, arkadaşlık, hastalık bulaşması, referans
Ağırlıklar; ör. etkileşim sıklığı, bilgi alışverişinin önemi, yakınlık, duygusal yoğunluk

oyuncak grafik 03

Sosyal ağ bileşenleri

Kenarlar

Farklı ilişki türleri; ör. para transferi, arama, arkadaşlık, hastalık bulaşması, referans
Ağırlıklar; ör. etkileşim sıklığı, bilgi alışverişinin önemi, yakınlık, duygusal yoğunluk
Yönlü; ör. gelen veya giden

oyuncak grafik 04

Sosyal ağ gösterimi

sosyogram

Sosyal ağ gösterimi

bağlantı matrisi

Sosyal ağ gösterimi

komşuluk listesi

Sosyal ağ gösterimi

komşuluk listesi

Bir ağa doğru

İşlemsel bir veri kaynağından ...

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

... graph_from_data_frame() işleviyle bir ağa doğru

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

plot(network)

düz ağ

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"

Çakışan kenarlar

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

çakışan kenarlar

Çakışan kenarlar

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

ağırlıklı kenarlar

Hadi pratik yapalım!

R ile Dolandırıcılık Tespiti