centrality_cleveland_plot: Cleveland Dot Plot para Indices de Centralidad

In InterconectaR: Psychological Network Analysis and Psychometric Insights

Cleveland Dot Plot para Indices de Centralidad

Description

Crea un grafico tipo Cleveland Dot Plot para visualizar dos metricas de centralidad (por ejemplo, Strength y Bridge Strength). Estilo clasico y elegante para publicaciones.

Usage

centrality_cleveland_plot(
  qgraph_obj,
  network,
  groups = NULL,
  measure0 = "Strength",
  measure1 = "Bridge Strength",
  color0 = "#2C3E50",
  color1 = "#E74C3C",
  point_size = 4,
  segment_size = 0.8,
  segment_color = "grey60",
  use_abbrev = TRUE,
  labels = NULL,
  order_by = "measure0",
  show_zero_line = TRUE,
  text_size = 12
)

Arguments

qgraph_obj	Objeto qgraph creado previamente.
network	Objeto de red estimado (por ejemplo, de bootnet::estimateNetwork).
groups	Lista de grupos/comunidades para calcular metricas de puente.
measure0	Metrica principal. Default: "Strength".
measure1	Metrica secundaria. Default: "Bridge Strength".
color0	Color para measure0. Default: "#2C3E50".
color1	Color para measure1. Default: "#E74C3C".
point_size	Tamano de los puntos. Default: 4.
segment_size	Grosor de las lineas de conexion. Default: 0.8.
segment_color	Color de la linea que conecta los puntos. Default: "grey60".
use_abbrev	Usar nombres abreviados. Default: TRUE.
labels	Vector de etiquetas personalizadas para los nodos. Default: NULL.
order_by	Ordenar por: "measure0", "measure1", "difference", "name". Default: "measure0".
show_zero_line	Mostrar linea vertical en cero. Default: TRUE.
text_size	Tamano base del texto. Default: 12.

Value

Lista con dos elementos:

plot	Objeto ggplot con el Cleveland Dot Plot.
table	Tabla con los valores de centralidad.

Examples

set.seed(123)
n <- 300
f1 <- rnorm(n)
f2 <- 0.3 * f1 + rnorm(n)
items <- data.frame(
  sapply(1:4, function(i) 0.7 * f1 + rnorm(n, 0, 0.7)),
  sapply(1:4, function(i) 0.7 * f2 + rnorm(n, 0, 0.7))
)
names(items) <- c(paste0("A", 1:4), paste0("B", 1:4))

net <- bootnet::estimateNetwork(items, default = "EBICglasso")
g <- qgraph::qgraph(net$graph, DoNotPlot = TRUE)
result <- centrality_cleveland_plot(
  qgraph_obj = g,
  network = net,
  groups = rep(c("A", "B"), each = 4),
  measure0 = "Strength",
  measure1 = "Bridge Strength"
)
result$plot
result$table

InterconectaR documentation built on Oct. 16, 2026, 1:06 a.m.