R 的詐欺偵測
Bart Baesens
Professor Data Science at KU Leuven

社群網路的同質性(社會學)
人們強烈傾向與被認為和自己相似的人來往。
詐欺網路中的同質性
詐欺者更可能連到其他詐欺者,合法者更可能連到其他合法者。
此網路是否包含統計上顯著的同質性模式?
assortativity_nominal(network, types = V(network)$isFraud, directed = FALSE)


Before:此人會撥打常聯絡對象

Before:此人會撥打常聯絡對象
After:此人改打新對象,且「巧合地」與另一人的聯絡人重疊

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"
plot(network)

R 的詐欺偵測