Community detection in R.

community_detection.r

library(RNeo4j)
library(igraph)

graph = startGraph("http://localhost:7474/db/data/")
clear(graph)

create_users = "FOREACH (i IN RANGE(1,50) | CREATE (:User {id:i, name:'name ' + i}))

                WITH 1 AS dummy
                
                MATCH (a:User), (b:User)
                WITH a, b
                WHERE (a.id % 5 = b.id % 5 AND rand() < 0.2) OR rand() < 0.005
                CREATE UNIQUE (a)-[:KNOWS]-(b)"

cypher(graph, create_users)

addConstraint(graph, "User", "name")

adj = adjacencyMatrix(graph,
                      label = "User",
                      key = "name",
                      type = "KNOWS")

g = graph.adjacency(adj, diag = F)
g$layout = layout.fruchterman.reingold(g) 
plot(g)

V(g)$color = edge.betweenness.community(g, directed = F)$membership
plot(g)