Correlaciones

library(data.table)
library(correlation)
library(kableExtra)
library(seasonalSensitivity)

variables_numericas <- dataset[,
  # Botamos la variable ID (no nos sirve ahora)
  .SD[, -c("id")],
  # Seleccionamos las variables numéricas
  .SDcols = is.numeric]

Veamos todas las correlaciones de manera gráfica.

# Generamos las correlaciones
cor_table <- correlation::correlation(variables_numericas, method = "spearman", p_adjust = "none")

# Redondeamos a los tres decimales los valores numéricos
cor_table <- as.data.frame(cor_table) |> as.data.table()
cor_table[, 3:8 := lapply(.SD, round, digits = 3), .SDcols = 3:8]

# Seleccionamos las variables a presentar
cor_table <- cor_table[, .(
      `Parámetro 1` = Parameter1, 
      `Parámetro 2` = Parameter2, 
      rho = rho, 
      `CI low` = CI_low, 
      `CI high` = CI_high, 
      `p-value` = p, 
      n = n_Obs
    )][order(-`p-value`)]

# Armamos una tabla
tbl <- kable(cor_table)
kable_styling(tbl, bootstrap_options = c("condensed", "responsive", "hover"))

Parámetro 1	Parámetro 2	rho	CI low	CI high	p-value	n
ss_patron_invierno	riff_crecimiento_personal	-0.014	-0.121	0.093	0.791	358
deporte_minutos_sesion	riff_crecimiento_personal	0.025	-0.120	0.170	0.725	194
ss_patron_verano	riff_dominio_entorno	-0.024	-0.131	0.083	0.648	358
deporte_minutos_sesion	riff_dominio_entorno	-0.035	-0.179	0.110	0.625	194
ss_patron_verano	riff_relaciones_positivas	-0.028	-0.134	0.079	0.603	358
ss_patron_verano	riff_proposito_vida	-0.031	-0.137	0.076	0.561	358
ss_patron_invierno	riff_relaciones_positivas	-0.031	-0.137	0.076	0.561	358
deporte_minutos_sesion	ss_patron_invierno	0.048	-0.098	0.192	0.505	194
deporte_minutos_sesion	riff_autoaceptacion	0.054	-0.092	0.197	0.456	194
ss_patron_verano	riff_autoaceptacion	-0.041	-0.147	0.066	0.436	358
deporte_minutos_sesion	ss_patron_verano	-0.063	-0.206	0.083	0.384	194
deporte_minutos_sesion	riff_proposito_vida	0.069	-0.077	0.212	0.342	194
deporte_minutos_sesion	riff_relaciones_positivas	0.072	-0.074	0.215	0.320	194
ss_patron_verano	riff_crecimiento_personal	0.056	-0.051	0.162	0.287	358
deporte_minutos_sesion	riff_autonomia	0.081	-0.065	0.223	0.262	194
ss_patron_invierno	riff_proposito_vida	-0.064	-0.169	0.043	0.228	358
ss_patron_invierno	riff_dominio_entorno	-0.078	-0.184	0.028	0.139	358
ss_patron_verano	riff_autonomia	-0.081	-0.186	0.026	0.125	358
ss_patron_invierno	riff_autoaceptacion	-0.091	-0.196	0.016	0.086	358
ss_patron_invierno	riff_autonomia	-0.106	-0.211	0.000	0.044	358
ss_patron_verano	ss_patron_invierno	0.484	0.398	0.562	0.000	358
riff_autoaceptacion	riff_relaciones_positivas	0.510	0.426	0.585	0.000	358
riff_autoaceptacion	riff_autonomia	0.575	0.499	0.643	0.000	358
riff_autoaceptacion	riff_dominio_entorno	0.709	0.651	0.758	0.000	358
riff_autoaceptacion	riff_crecimiento_personal	0.573	0.497	0.641	0.000	358
riff_autoaceptacion	riff_proposito_vida	0.627	0.558	0.688	0.000	358
riff_relaciones_positivas	riff_autonomia	0.427	0.336	0.511	0.000	358
riff_relaciones_positivas	riff_dominio_entorno	0.374	0.279	0.462	0.000	358
riff_relaciones_positivas	riff_crecimiento_personal	0.426	0.334	0.510	0.000	358
riff_relaciones_positivas	riff_proposito_vida	0.258	0.156	0.355	0.000	358
riff_autonomia	riff_dominio_entorno	0.510	0.427	0.585	0.000	358
riff_autonomia	riff_crecimiento_personal	0.519	0.436	0.593	0.000	358
riff_autonomia	riff_proposito_vida	0.349	0.252	0.439	0.000	358
riff_dominio_entorno	riff_crecimiento_personal	0.564	0.487	0.633	0.000	358
riff_dominio_entorno	riff_proposito_vida	0.630	0.561	0.690	0.000	358
riff_crecimiento_personal	riff_proposito_vida	0.445	0.355	0.527	0.000	358