Create COMMUNICATE_WITH relationship between persons.

Communication.cypher

// Check the data
MATCH (p1:Person)-[:OUT]->(c:Call)<-[]-(p2:Person)
WHERE c.duration > 0
RETURN p1.name, p2.name, sum(c.duration) as duration, count(c) as calls
ORDER BY duration DESC
LIMIT 10

// Check one pair
MATCH (p1:Person { name: "Kara" })-[*2]-(p2:Person { name: "Hailee" })
RETURN p1, p2

// Set COMMUNICATE_WITH
MATCH (c1:City { name: "Bangkok" })<-[:FROM]-(p1:Person)-[:OUT]->(c:Call)<-[:IN]-(p2:Person)
WHERE (c1)<-[:FROM]-(p2)
WITH p1, p2, sum(c.duration) as duration_sum
MERGE (p1)-[:COMMUNICATE_WITH { duration: duration_sum }]->(p2)

// SCC
CALL algo.scc.stream('Person', 'COMMUNICATE_WITH')
YIELD nodeId, partition
RETURN partition, count(nodeId) as total
ORDER BY total DESC