Network Analysis in R
James Curley
Associate Professor, University of Texas at Austin
library(threejs)
graphjs(g)
g <- set_vertex_attr(
g,
"label",
value = V(g)$name
)
g <- set_vertex_attr(
g,
"color",
value = "mistyrose"
)
graphjs(g, vertex.size = 1)
x = edge.betweenness.community(g)
i <- membership(x)
g <- set_vertex_attr(
g,
"color",
value = c(
"yellow", "blue", "red"
)[i]
)
graphjs(g)
Network Analysis in R