R:为网络分析准备数据

Question

我有两列的数据:事务ID和Salesperson名称，其中一行代表事务，而salesperson代表事务。大多数事务都有一个以上的销售人员，因此在这种情况下，事务ID重复列出所有销售人员。

我想要创建一个网络，即使用r中的网络包，但是在如何格式化数据的问题上陷入困境。我可以通过对名称进行唯一排序来获取节点，但不确定如何转换数据以获得边缘列表。网络是无指向的。

我的数据如下：

Trans_ID | Name
--------------------
1        | Andy
1        | Ben
1        | Cindy
2        | David
2        | Eric
3        | Fabian
3        | George
4        | Hector

实际数据大约有300 K行数据。

Answer 1

您可以加入Trans_ID来创建边缘：

library(dplyr)
library(visNetwork)

data <- tibble::tribble(~Trans_ID , ~Name,
1       , "Andy",
1        , "Ben",
1        , "Cindy",
2        , "David",
2        , "Eric",
3        , "Fabian",
3        , "George",
4        , "Hector")


nodes <- data %>% select(Name)  %>% unique() %>% mutate(id = Name, label = Name)
edges <- data %>% inner_join(data, by = c("Trans_ID"="Trans_ID")) %>% 
         filter(Name.x < Name.y) %>%
         mutate(from = Name.x, to = Name.y)


vn <- visNetwork(nodes, edges, height = 1200,width = "100%")  %>% visPhysics(stabilization = FALSE,solver='forceAtlas2Based')
vn 

​

​

Answer 2

我不确定您将根据给定的数据框架来演示什么样的网络。下面是一个使用igraph的选项

与Trans_ID关联的

• Name

library(igraph)
g <- graph_from_data_frame(df,directed = FALSE)
V(g)$color <- c("light blue","yellow")[V(g)$name %in% df$Trans_ID + 1]
plot(g,vertex.size = 30)

给予

​

​

仅Trans_ID)

• Name (按
• 分组)

library(igraph)
DF <- as.data.frame(do.call(rbind,
        with(df,tapply(Name, Trans_ID, function(x) if (length(x)==1) t(rep(x,2)) else t(combn(x,2)) ))))
g <- graph_from_data_frame(DF,directed = FALSE)
plot(simplify(g),vertex.size = 30)

给予

​