# NOT RUN {
Y <- BGGM::bfi[1:500, 1:20]
# fit model
fit_explore <- explore(Y)
# select the graph (edge set E)
E <- select(fit_explore)
# plot
plt <- plot(E,
node_labels = letters[1:20],
node_labels_color = "white",
node_groups = rep(c("1", "2", "3", "4"), each = 5),
edge_colors = "classic", txt_size = 8,
alpha = 0.5, palette = "Set2")
# }
Run the code above in your browser using DataLab