อะไรทำให้สินค้าสำคัญ?
เมื่อกำหนดนิยามของ "สินค้าสำคัญ" ได้แล้ว มาดูกันว่าสินค้าเหล่านั้นมีคุณสมบัติที่สัมพันธ์กันหรือไม่ คู่ที่น่าสนใจคู่หนึ่งคือ salesrank.from และ salesrank.to เราจะตรวจสอบว่าสินค้าสำคัญมักมีอันดับยอดขายสูงกว่าสินค้าที่ถูกซื้อต่อเนื่องในลำดับถัดไปหรือไม่ โดยเริ่มจากการกรองเฉพาะ vertex ที่สำคัญออกมา แล้ว join กลับเข้ากับ dataframe เดิม จากนั้นสร้าง dataframe ใหม่โดยใช้แพ็กเกจ dplyr เราจะสร้างกราฟใหม่ แล้วระบายสีเส้นเชื่อมเป็นสีน้ำเงินสำหรับการเชื่อมจากอันดับสูง (1, 2, 3) ไปยังอันดับต่ำ (20, 21, 22) และสีแดงสำหรับกรณีตรงข้าม หากอันดับยอดขายมีความสัมพันธ์กับการซื้อต่อเนื่อง เส้นเชื่อมส่วนใหญ่จะเป็นสีน้ำเงิน แต่ถ้าไม่มีความสัมพันธ์ สีแดงและสีน้ำเงินจะปรากฏในสัดส่วนที่ใกล้เคียงกัน
ชุดข้อมูล ip_df มีข้อมูลเกี่ยวกับสินค้าสำคัญ
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
กรณีศึกษา: การวิเคราะห์เครือข่ายใน R
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Select the from and to columns from ip_df
ip_df_from_to <- ip_df[c(___,___)]
# Create a directed graph from the data frame
ip_g <- graph_from_data_frame(___, directed = ___)
# Set the edge color. If salesrank.from is less than or
# equal to salesrank.to then blue else red.
edge_color <- ifelse(
ip_df$___ <= ip_df$___,
yes = ___,
no = ___
)