How to make grouped layout in igraph?

by

Inspired on Antoine’s suggestion, I created this function: 

edge.weights <- function(community, network, weight.within = 100, weight.between = 1) {
bridges <- crossing(communities = community, graph = network)
weights <- ifelse(test = bridges, yes = weight.between, no = weight.within)
return(weights) 
}

The function does the same; just put your community object in the community slot, your graph in the network one. I would left the weight.between = 1 and tune the weight.within value.

Then transfer the weights to the weight slot in the nodes:

E(graph)$weight <- edge.weights(community, graph)

Finally use a layout algorithm that uses weights like layout_with_fr (the new name of fruchterman.reingold in igraph 1.0.1).

I use the Zachary’s karate club network as example.

library(igraph)
library(igraphdata)
#I load the network
data(karate)
#for reproducible purposes
set.seed(23548723)
karateLayout <- layout_with_fr(karate)
par(mar = c(0,0,2,0))
plot(karate, vertex.size = 10, vertex.color = "steelblue4", edge.width = 1, 
vertex.label = NA, edge.color = "darkgrey", layout = karateLayout,
main = "Zachary's karate club network" )

enter image description here

I detect the communities by multi-level optimization of modularity with the cluster_louvain function:

Communitykarate <- cluster_louvain(karate)

The next it’s a personal preference over the defaults:

prettyColors <- c("turquoise4", "azure4", "olivedrab","deeppink4")
communityColors <- prettyColors[membership(Communitykarate)]

The graph with the communities highlighted using colors is:

plot(x = Communitykarate, y = karate, edge.width = 1, vertex.size = 10, 
vertex.label = NA, mark.groups = NULL, layout = karateLayout, col = communityColors,
main = "Communities in Zachary's karate club network",
edge.color = c("darkgrey","tomato2")crossing(Communitykarate, karate) + 1])

enter image description here

Now, the meaning why this question exist. 

E(karate)$weight <- edge.weights(Communitykarate, karate)
# I use the original layout as a base for the new one
karateLayoutA <- layout_with_fr(karate, karateLayout)
# the graph with the nodes grouped
plot(x = Communitykarate, y = karate, edge.width = 1, vertex.size = 10, 
mark.groups = NULL, layout = karateLayoutA, vertex.label = NA, col = communityColors, 
c("darkgrey","tomato2")[crossing(Communitykarate, karate) + 1],
main = "Communities in Zachary's karate club network (grouped)")

enter image description here

If you try with more weight you will have have:

E(karate)$weight <- edge.weights(Communitykarate, karate, weight.within = 1000)
karateLayoutB <- layout_with_fr(karate, karateLayout)
plot(x = Communitykarate, y = karate, edge.width = 1, vertex.size = 10,
 mark.groups = NULL, layout = karateLayoutB, vertex.label = NA, col = communityColors, 
c("darkgrey","tomato2")[crossing(Communitykarate, karate) + 1],
main = "Communities in Zachary's karate club network (grouped)")

enter image description here

More Related Contents:

  1. How to plot just the legends in ggplot2?
  2. What are the differences between community detection algorithms in igraph?
  3. Network chord diagram woes in R
  4. Create a group index for values connected directly and indirectly
  5. r igraph find all cycles
  6. Fixing Cluttered Titles on Graphs
  7. Correctly color vertices in R igraph
  8. How to create a bipartite network in R with igraph or tnet
  9. How to increase the size of points in legend of ggplot2? [duplicate]
  10. Creating a named list from two vectors (names, values)
  11. suppress console output in r markdown, but keep plot
  12. Are there global variables in R Shiny?
  13. Add row in each group using dplyr and add_row()
  14. How to adjust facet size manually
  15. R: why kable doesn’t print inside a for loop?
  16. Shifting a column down by one
  17. list of masked functions in R
  18. Using R convert data.frame to simple vector
  19. Problem loading rJava
  20. How to change stacking order in stacked bar chart in R?
  21. R programming: cache the inverse of a matrix
  22. How can I count the number of NAs per group?
  23. R: How to split a data frame into training, validation, and test sets?
  24. Match legend text color in geom_text to symbol [duplicate]
  25. find all functions (including private) in a package
  26. Difference between r-base and r-recommended packages
  27. Create a time interval of 15 minutes from minutely data in R?
  28. Multiply columns in a data frame by a vector
  29. R – What algorithm does geom_density() use and how to extract points/equation of curves?
  30. Fill option for fread

Leave a Comment