การดึงประเภทของ Edge
ในแบบฝึกหัดนี้ คุณจะจับคู่ ID ลูกค้าใน dataframe ของลูกค้ากับ edgelist เพื่อตรวจสอบว่าแต่ละ edge เป็น edge ของผู้เลิกใช้บริการ ผู้ไม่เลิกใช้บริการ หรือ edge แบบผสม
โดยใช้ฟังก์ชัน match() คุณจะเพิ่มสองคอลัมน์ลงใน edgelist ได้แก่
fromLabel— สถานะการเลิกใช้บริการของคอลัมน์fromtoLabel— สถานะการเลิกใช้บริการของคอลัมน์to

คำสั่ง match(x, y) จะคืนค่าเวกเตอร์ที่บอกตำแหน่งของ x ใน y จากภาพด้านบน match(edgeList$from, customers$id) จะได้ผลลัพธ์เป็น 1,1,1,2,2 ตัวอย่างเช่น แถวที่สี่ของ edgeList$from คือลูกค้าที่มี id 393 ซึ่งอยู่ในตำแหน่งที่สองของ customers$id
ดังนั้น label การเลิกใช้บริการของลูกค้ารายนี้คือ customers[2,2] หรือ 0
ในทำนองเดียวกัน label การเลิกใช้บริการของทุกคนใน edgeList$from คือ customers[match(edgeList$from, customers$id),2]
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การวิเคราะห์เชิงพยากรณ์โดยใช้ข้อมูลเครือข่ายใน R
คำแนะนำการฝึกหัด
- เพิ่มคอลัมน์ชื่อ
FromLabelลงใน dataframeedgeListโดยใช้ label ของ node ฝั่งfromด้วยการจับคู่customers$idกับedgeList$fromแล้วดึงค่าจากcustomers$churn - ทำเช่นเดียวกันสำหรับ edge ฝั่ง
toและตั้งชื่อคอลัมน์นี้ว่าToLabel - เพิ่มคอลัมน์ชื่อ
edgeTypeลงใน dataframeedgeListโดยให้ค่าเป็นผลรวมของคอลัมน์FromLabelและToLabel - ใช้ฟังก์ชัน
table()เพื่อดูจำนวน edge แต่ละประเภท
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Add the column edgeList$FromLabel
edgeList$FromLabel <- customers[match(edgeList$___, customers$___), 2]
# Add the column edgeList$ToLabel
edgeList$ToLabel <- customers[___(___, ___), 2]
# Add the column edgeList$edgeType
edgeList$edgeType <- edgeList$___ + edgeList$___
# Count the number of each type of edge
___(edgeList$edgeType)