I recently had a conversation on Twitter about a plot I made a while back. Recall, the plot showed my Twitter network, my friends and my friend’s friends.

Here’s the Twitter thread:

And here’s the R code:

#### Load R libraries library("iGraph") #### Load edgelist r <- read.csv(file="edgelist_friends.csv-03-25.csv",header=TRUE,stringsAsFactors=FALSE)[,-1] #### Convert to graph object gr <- graph.data.frame(r,directed=TRUE) #### gr # Describe graph summary(gr) ecount(gr) # Edge count vcount(gr) # Node count diameter(gr) # Network diameter farthest.nodes(gr) # Nodes furthest apart V(gr)$indegree = degree(gr,mode="in") # Calculate indegree #### Plot graph E(gr)$color = "gray" E(gr)$width = .5 E(gr)$arrow.width = .25 V(gr)$label.color = "black" V(gr)$color = "dodgerblue" V(gr)$size = 4 set.seed(40134541) l <- layout.fruchterman.reingold(gr) pdf("network_friends_plot.pdf") plot(gr,layout=l,rescale=TRUE,axes=FALSE,ylim=c(-1,1),asp=0,vertex.label=NA) dev.off()

Advertisements