R: Twin Peaks S1Ep1-3 Arc Diagram

R Arc Diagram example

# Download arcdiagram package from Gaston Sanchez's github
install.packages("devtools")
library(devtools)
install_github("arcdiagram", username = "gastonstat")
library(arcdiagram)

# Start igraph package to use certain parameters
library(igraph)

# Convert csv file to gml -> for arc diagram use
tps <- read.csv("/Users/twinpeaks.csv")
tps_graph <- graph.data.frame(d = tps, directed = FALSE)
write.graph(graph = tps_graph, file = "tps.gml", format ="gml")
# Make sure tps.gml is saved in designated folder

# import gml file into R
tps_G <- read.graph("/Users/tps.gml", format = "gml")

# create edgelist
tps_edge = get.edgelist(tps_G)

# plot graph
arcplot(tps_edge)

tps.csv

tps.gml

Creator "igraph version @VERSION@ Mon Feb 16 16:58:30 2015"
Version 1
graph
[
  directed 0
  node
  [
    id 0
    name "Lucy Moran"
  ]
  node
  [
    id 1
    name "Sheriff Truman"
  ]
  node
  [
    id 2
    name "Agent Cooper"
  ]
  node
  [
    id 3
    name "Leo Johnson"
  ]
  node
  [
    id 4
    name "Norma"
  ]
  node
  [
    id 5
    name "Donna Hayward"
  ]
  node
  [
    id 6
    name "Leland Palmer"
  ]
  node
  [
    id 7
    name "Benjamin Horne"
  ]
  node
  [
    id 8
    name "Dr. Hayward"
  ]
  node
  [
    id 9
    name "Mike"
  ]
  node
  [
    id 10
    name "Bobby"
  ]
  node
  [
    id 11
    name "James Hurley"
  ]
  node
  [
    id 12
    name "Josie Packard"
  ]
  node
  [
    id 13
    name "Pete Martell"
  ]
  node
  [
    id 14
    name "Catherine Martell"
  ]
  node
  [
    id 15
    name "Dr. Jacoby"
  ]
  node
  [
    id 16
    name "Sarah Palmer"
  ]
  node
  [
    id 17
    name "Andy Brennan"
  ]
  node
  [
    id 18
    name "Audrey Horne"
  ]
  node
  [
    id 19
    name "Shelly Johnson"
  ]
  node
  [
    id 20
    name " Sheriff Truman"
  ]
  node
  [
    id 21
    name "Eileen Hayward"
  ]
  node
  [
    id 22
    name "Jerry Horne"
  ]
  node
  [
    id 23
    name "Hawk"
  ]
  node
  [
    id 24
    name "Ed Hurley"
  ]
  node
  [
    id 25
    name "Nadine Hurley"
  ]
  edge
  [
    source 17
    target 0
  ]
  edge
  [
    source 17
    target 1
  ]
  edge
  [
    source 1
    target 0
  ]
  edge
  [
    source 18
    target 2
  ]
  edge
  [
    source 19
    target 3
  ]
  edge
  [
    source 19
    target 3
  ]
  edge
  [
    source 19
    target 4
  ]
  edge
  [
    source 17
    target 2
  ]
  edge
  [
    source 2
    target 0
  ]
  edge
  [
    source 2
    target 1
  ]
  edge
  [
    source 11
    target 2
  ]
  edge
  [
    source 11
    target 1
  ]
  edge
  [
    source 20
    target 2
  ]
  edge
  [
    source 21
    target 5
  ]
  edge
  [
    source 7
    target 6
  ]
  edge
  [
    source 22
    target 7
  ]
  edge
  [
    source 8
    target 2
  ]
  edge
  [
    source 8
    target 1
  ]
  edge
  [
    source 10
    target 9
  ]
  edge
  [
    source 23
    target 10
  ]
  edge
  [
    source 24
    target 1
  ]
  edge
  [
    source 24
    target 2
  ]
  edge
  [
    source 2
    target 0
  ]
  edge
  [
    source 25
    target 4
  ]
  edge
  [
    source 24
    target 11
  ]
  edge
  [
    source 9
    target 2
  ]
  edge
  [
    source 10
    target 2
  ]
  edge
  [
    source 2
    target 1
  ]
  edge
  [
    source 13
    target 12
  ]
  edge
  [
    source 12
    target 2
  ]
  edge
  [
    source 13
    target 2
  ]
  edge
  [
    source 2
    target 1
  ]
  edge
  [
    source 14
    target 12
  ]
  edge
  [
    source 14
    target 7
  ]
  edge
  [
    source 12
    target 1
  ]
  edge
  [
    source 12
    target 2
  ]
  edge
  [
    source 14
    target 7
  ]
  edge
  [
    source 15
    target 2
  ]
  edge
  [
    source 15
    target 1
  ]
  edge
  [
    source 16
    target 5
  ]
]