Keith McNulty keithmcnulty
keithmcnulty
/ season_by_season_networks.R
Created
June 19, 2020 10:38
Visualize season by season force-directed networks
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(jpeg) | |
| source("network_analysis/friends_network.R") | |
| # get friends full series edgelist | |
| edgefile_url <- "https://github.com/keithmcnulty/friends_analysis/blob/master/data/friends_edgelist_by_season.RDS?raw=true" | |
| download.file(edgefile_url, "edgelist.RDS") | |
| edgelist <- readRDS("edgelist.RDS") |
keithmcnulty
/ friends_network.R
Created
June 19, 2020 10:33
Function for generating Friends network visualizations
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(readr) | |
| library(igraph) | |
| friends_network <- function(season = NULL, edgelist = NULL, type = c("mds", "sphere")) { | |
| friends <- c("Phoebe", "Monica", "Rachel", "Joey", "Ross", "Chandler") | |
| edgelist_matrix <- as.matrix(edgelist[ ,c("from", "to")]) | |
NewerOlder