Location

//bulkstorage.uchicago.edu/home/akhanna/bulkstorage_projects_bsd_computer/Writing/Papers/co-author/NetworkScience-Schneider-etal

## Warning: package 'ggnetwork' was built under R version 3.2.5

## Warning: package 'ggplot2' was built under R version 3.2.5

## Warning: package 'GGally' was built under R version 3.2.5

## Warning: package 'gridExtra' was built under R version 3.2.5

One node

## Loading required package: scales

Another node

Together

 ```r
 size <- 10
    
    p1 <- ggnet2(w1_net, color="type", size=size,
        palette = "Set2")+ggtitle("Wave 1")+guides(color=FALSE)
    p2 <- ggnet2(w2_net, color="type", size=size,
       palette = "Set2")+ggtitle("Wave 2")+guides(color=FALSE)
    p3 <- ggnet2(w3_net, color="type", size=size,
       palette = "Set2")+ggtitle("Wave 3")+guides(color=FALSE)
     
    p4 <- ggnet2(w1_net, color="type", size=size,
      palette = "Set2")+guides(color=FALSE)
    p5 <- ggnet2(w2_net, color="type", size=size,
      palette = "Set2")+guides(color=FALSE)
    p6 <- ggnet2(w3_net, color="type", size=size,
            palette = "Set2")+guides(color=FALSE)   
     
 
     
     pdf(file="fig-2-nodes-3-cols.pdf")
     grid.arrange(p1, p2, p3, p4, p5, p6, ncol=3)
     dev.off()
 ```