ggraph_example.R

# Install from github:
devtools::install_github("sachaepskamp/qgraph")
library("qgraph")

# Example network to play with:
# Load data:
library("psychTools")
data(bfi)

# Compute polychoric correlations:
corMat <- cor_auto(bfi[,1:25])

# Optimize network:
Results <- ggmModSelect(corMat, nrow(bfi), gamma = 0.5, nCores = 8)

# Plot results:
object <- qgraph(Results$graph, layout = "spring", cut = 0, theme = "colorblind", title = "Using qgraph")

# Now as ggraph:
library("ggplot2")
as.ggraph(object) + ggtitle("Using ggraph")