Some Social Networks – R

Using this format

library(igraph)

draw.quick.graph <- function(g) {
    plot(
        g,                                                      
        layout=layout.fruchterman.reingold,
        vertex.label=NA,
        vertex.size=2,
		vertex.color="white",
        vertex.frame.color="black",
        edge.width=1
    )
}

---

Droid V6

Vertices: 118
Edges: 244

---

Slide V6

Vertices: 241
Edges: 447

---

Desire V6

Vertices: 613
Edges: 1642

---

Dream V6

Vertices: 994
Edges: 1822

---

Nexus One V6

Vertices: 1149
Edges: 2336

---

Evo 4G V6

Vertices: 1773
Edges: 6553