什么才是重要产品？
既然我们已经给出"重要产品"的工作定义，接下来看看它们是否具有可能相关的属性。一个候选配对是 salesrank.from 和 salesrank.to。我们可以询问：重要产品的销售排名是否往往高于下游被购买的产品。我们将先筛出重要的顶点，再把它们与初始数据框连接，然后使用 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 = ___
)