compare.EGA.plots: Visually Compare Two or More 'EGAnet' plots

In EGAnet: Exploratory Graph Analysis – a Framework for Estimating the Number of Dimensions in Multivariate Data using Network Psychometrics

Visually Compare Two or More EGAnet plots

Description

Organizes EGA plots for comparison. Ensures that nodes are placed in the same layout to maximize comparison

Usage

compare.EGA.plots(
  ...,
  input.list = NULL,
  base = 1,
  labels = NULL,
  rows = NULL,
  columns = NULL,
  plot.all = TRUE
)

Arguments

...	Handles multiple arguments: *EGA objects — can be dropped in without any argument designation. The function will search across input to find necessary EGAnet objects ggnet2 arguments — can be passed along to ggnet2 gplot.layout — can be specified using mode = or layout = using the name of the layout (e.g., mode = "circle" will produce the circle layout from gplot.layout). By default, the layout is the same as qgraph
input.list	List. Bypasses ... argument in favor of using a list as an input
base	Numeric (length = 1). Plot to be used as the base for the configuration of the networks. Uses the number of the order in which the plots are input. Defaults to 1 or the first plot
labels	Character (same length as input). Labels for each EGAnet object
rows	Numeric (length = 1). Number of rows to spread plots across
columns	Numeric (length = 1). Number of columns to spread plots down
plot.all	Boolean (length = 1). Whether plot should be produced or just output. Defaults to TRUE. Set to FALSE to avoid plotting (but still obtain plot objects)

Value

Visual comparison of EGAnet objects

Author(s)

Alexander Christensen <[e-mail]>

See Also

plot.EGAnet for plot usage in EGAnet

Examples

# Obtain WMT-2 data
wmt <- wmt2[,7:24]

# Draw random samples of 300 cases
sample1 <- wmt[sample(1:nrow(wmt), 300),]
sample2 <- wmt[sample(1:nrow(wmt), 300),]

# Estimate EGAs
ega1 <- EGA(sample1)
ega2 <- EGA(sample2)


# Compare EGAs via plot
compare.EGA.plots(
  ega1, ega2,
  base = 1, # use "ega1" as base for comparison
  labels = c("Sample 1", "Sample 2"),
  rows = 1, columns = 2
)

# Change layout to circle plots
compare.EGA.plots(
  ega1, ega2,
  labels = c("Sample 1", "Sample 2"),
  mode = "circle"
)

EGAnet documentation built on Sept. 28, 2024, 9:06 a.m.