Social network analysis founders' influences (& plot)

library(RCurl); library(igraph)

found.infl<-getURL("https://docs.google.com/spreadsheet/pub?key=0Ai--oOZQWBHSdE9FdGc0dGFvX2F5NGRzVnZ3RkZrdXc&output=txt", ssl.verifypeer=FALSE)
#Source: Freeman, Linton C. The Development of Social Network Analysis: A Study in the Sociology of Science. Empirical Press. p. 131
#Edges signify that the receiver was influenced by the sender.
#Only those who receive ties were interviewed in the study.

found.infl<-as.matrix(read.table(textConnection(found.infl), sep="\t", header=TRUE))
found.infl<-graph.edgelist(found.infl)

plot(found.infl, vertex.size=8, edge.arrow.size=.35, vertex.color=rev(rainbow(2, s=.7, v=.7, alpha=.7))[1+(degree(found.infl, mode="in")>0)], vertex.label.cex=.7, vertex.label.family="sans", vertex.label.color="black", vertex.label.dist=0, layout=layout.kamada.kawai(found.infl, params=list(niter=5000)))