netplot.R
In BGGM: Bayesian Gaussian Graphical Models

## ----eval = FALSE, message=FALSE----------------------------------------------
# # need the developmental version
# if (!requireNamespace("remotes")) {
#   install.packages("remotes")
# }
# 
# # install from github
# remotes::install_github("donaldRwilliams/BGGM")
# library(BGGM)
# library(cowplot)

## ----echo=FALSE, message=FALSE------------------------------------------------
library(BGGM)

## ----eval=FALSE---------------------------------------------------------------
# # data
# Y <- bfi[,1:25]
# 
# # fit model
# fit <- estimate(Y)

## ----eval=FALSE---------------------------------------------------------------
# # select the edge set
# E <- select(fit,
#             cred = 0.95,
#             alternative = "two.sided")

## ----eval=FALSE---------------------------------------------------------------
# plot(E)

## ----eval=FALSE---------------------------------------------------------------
# plot(E,
#      # enlarge edges
#      edge_magnify = 5,
#      # cluster nodes
#      groups = comm,
#      # change layout
#      layout = "random")$plt +
#   # add custom labels
#   scale_color_brewer(breaks = c("A",
#                                 "C",
#                                 "E",
#                                 "N",
#                                 "O"),
#                      labels =   c("Agreeableness", "Conscientiousness",
#                                   "Extraversion", "Neuroticism",
#                                   "Opennness"),
#                      palette = "Set2")