Network visualization of team projects

project_network.R

library(tidyverse)
library(networkD3)

raw <- pins::pin_get("projects", "local")

df <- raw %>% 
    mutate(associate = str_split(associate, pattern = "，|、")) %>% 
    unnest_longer(associate) %>% 
    filter(!is.na(associate)) %>% 
    count(owner, associate)

nodes <- 
    df %>% 
    select(owner, associate) %>% 
    unlist() %>% 
    unique() %>% 
    data.frame() %>% 
    set_names("name") %>% 
    rownames_to_column(var = "id") %>% 
    mutate(id = as.numeric(id) - 1) %>% 
    mutate(group = if_else(name %in% df$owner, 1L, 0L)) %>% 
    as.data.frame()

links <- 
    df %>% 
    left_join(nodes, by = c("owner" = "name")) %>% 
    rename("source" = id) %>% 
    left_join(nodes, by = c("associate" = "name")) %>% 
    rename("target" = id) %>% 
    select(source, target, n) %>% 
    as.data.frame()

forceNetwork(
    Links  = links,
    Nodes  = nodes,
    Source = "source",
    Target = "target",
    Value  = "n",
    NodeID = "name",
    Group  = "group",
    linkDistance = JS("function(d){return d.value * 40}")
)