Gian lận và 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

Gian lận có phải hiện tượng xã hội?

  • Trực giác: quan hệ giữa người với người
  • Có dấu hiệu cho thấy gian lận là hiện tượng xã hội không?

mạng xã hội

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

Gian lận có phải hiện tượng xã hội?

  • Kẻ gian thường kết cụm:
    • cùng dự sự kiện/hoạt động
    • cùng dính líu tội phạm
    • dùng chung nguồn lực
    • đôi khi là cùng một người (đánh cắp danh tính)
Phát hiện gian lận với R

Đồng thanh (Homophily)

Tính đồng thanh trong mạng xã hội (xã hội học)
Con người có xu hướng mạnh gắn kết với người họ cho là tương đồng.

Đồng thanh trong mạng gian lận
Kẻ gian có xác suất kết nối với kẻ gian cao hơn; người hợp pháp kết nối với người hợp pháp cao hơn.

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

Đồng thanh - gian lận an sinh xã hội

Mạng có mẫu hình đồng thanh có ý nghĩa thống kê không?

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

đồng thanh mạng

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

Đánh cắp danh tính

trước khi đánh cắp danh tính

Trước: người này gọi các liên hệ thường xuyên

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

Đánh cắp danh tính

sau khi đánh cắp danh tính

Trước: người này gọi các liên hệ thường xuyên

Sau: người này gọi liên hệ mới tình cờ trùng với liên hệ của người khác

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

Chân rết rửa tiền

  • Chân rết rửa tiền = người chuyển tiền có nguồn gốc bất hợp pháp (ví dụ: tiền bị đánh cắp)
  • Người thụ hưởng giao dịch gian lận
  • Chuyển tiền đánh cắp thay cho người khác (kẻ lừa đảo)

mạng tài khoản

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

Mạng với chân rết được tô nổi bật

plot(network)

mạng có đánh dấu chân rết

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

Ayo berlatih!

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

Preparing Video For Download...