Phân tích mạng xã hội

Phát hiện gian lận với R

Bart Baesens

Professor Data Science at KU Leuven

Thành phần của mạng xã hội

Nút (đỉnh)

  • khách hàng
  • công ty
  • sản phẩm
  • thẻ tín dụng
  • tài khoản
  • trang web

toy_graph_01.png

Phát hiện gian lận với R

Thành phần của mạng xã hội

Cạnh

  • Nhiều loại quan hệ, ví dụ: chuyển tiền, gọi điện, bạn bè, lây truyền bệnh, tham chiếu

toy_graph_02.png

Phát hiện gian lận với R

Thành phần của mạng xã hội

Cạnh

  • Nhiều loại quan hệ, ví dụ: chuyển tiền, gọi điện, bạn bè, lây truyền bệnh, tham chiếu
  • Gán trọng số theo tần suất tương tác, mức quan trọng của trao đổi thông tin, mức thân thiết, cường độ cảm xúc

toy_graph_03.png

Phát hiện gian lận với R

Thành phần của mạng xã hội

Cạnh

  • Nhiều loại quan hệ, ví dụ: chuyển tiền, gọi điện, bạn bè, lây truyền bệnh, tham chiếu
  • Gán trọng số theo tần suất tương tác, mức quan trọng của trao đổi thông tin, mức thân thiết, cường độ cảm xúc
  • Có hướng, ví dụ: vào hoặc ra

toy_graph_04.png

Phát hiện gian lận với R

Biểu diễn mạng xã hội

biểu đồ xã hội

Phát hiện gian lận với R

Biểu diễn mạng xã hội

ma trận kết nối

Phát hiện gian lận với R

Biểu diễn mạng xã hội

danh sách kề

Phát hiện gian lận với R

Biểu diễn mạng xã hội

danh sách kề

Phát hiện gian lận với R

Xây dựng mạng

  • Từ nguồn dữ liệu giao dịch ...
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
  • ... đến một mạng bằng hàm graph_from_data_frame()
library(igraph)
network <- graph_from_data_frame(transactions, directed = FALSE)
Phát hiện gian lận với R
plot(network)

mạng đơn giản

Phát hiện gian lận với R
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"
Phát hiện gian lận với R

Cạnh chồng lấp

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

cạnh chồng lấp

Phát hiện gian lận với R

Cạnh chồng lấp

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

cạnh có trọng số

Phát hiện gian lận với R

Cùng luyện tập nào!

Phát hiện gian lận với R

Preparing Video For Download...