feat <- read.csv("http://commres.net/wiki/_media/r/featuring.csv")
feat
g <- graph_from_data_frame(feat)
g
plot(g)
V(g)
E(g)