In class Ex05

Show the code

pacman::p_load(jsonlite, igraph, tidygraph, ggraph, 
               visNetwork, lubridate, clock,
               tidyverse, graphlayouts, dplyr)

Show the code

GAStech_nodes <- read_csv("data/GAStech_email_node.csv")

Rows: 54 Columns: 4
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (3): label, Department, Title
dbl (1): id

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Show the code

GAStech_edges <- read_csv("data/GAStech_email_edge-v2.csv")

Rows: 9063 Columns: 8
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr  (5): SentDate, Subject, MainSubject, sourceLabel, targetLabel
dbl  (2): source, target
time (1): SentTime

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Show the code

MC1 <- jsonlite::fromJSON("data/MC1.json")

Show the code

MC1_nodes <- as_tibble(MC1$nodes) %>%
  select(id, type, country)

Show the code

MC1_edges <- as_tibble(MC1$links) %>%
  select(source, target, type, weight, key)