Техническая информация и библиотеки

rm(list = ls())
date()
## [1] "Tue Aug 13 13:49:10 2024"
sessionInfo()
## R version 4.4.1 (2024-06-14)
## Platform: x86_64-apple-darwin20
## Running under: macOS Ventura 13.6.9
## 
## Matrix products: default
## BLAS:   /Library/Frameworks/R.framework/Versions/4.4-x86_64/Resources/lib/libRblas.0.dylib 
## LAPACK: /Library/Frameworks/R.framework/Versions/4.4-x86_64/Resources/lib/libRlapack.dylib;  LAPACK version 3.12.0
## 
## locale:
## [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
## 
## time zone: Europe/Moscow
## tzcode source: internal
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## loaded via a namespace (and not attached):
##  [1] digest_0.6.36     R6_2.5.1          fastmap_1.2.0     xfun_0.46        
##  [5] cachem_1.1.0      knitr_1.48        htmltools_0.5.8.1 rmarkdown_2.27   
##  [9] lifecycle_1.0.4   cli_3.6.3         sass_0.4.9        jquerylib_0.1.4  
## [13] compiler_4.4.1    rstudioapi_0.16.0 tools_4.4.1       evaluate_0.24.0  
## [17] bslib_0.7.0       yaml_2.3.9        rlang_1.1.4       jsonlite_1.8.8

 library(ggplot2)
 library(dplyr)
 library(tidyr)
# 
# library(psych)
# library(GGally)

library(knitr)

Загрузка объекта

Data <- readRDS("DataRDS.RData")

Корреляционная матрица

DataCorr <- Data |> 
  select(starts_with("W_"), WellBeing,
         starts_with("SW_"), SubWellBeing,
         PB_O, PB_U, PB_Z,
         starts_with("SO_"),
         starts_with("SP_"),
         starts_with("ZhS_"),
         starts_with("P_"))

cor_matrix <- cor(DataCorr, use = "pairwise.complete.obs")
kable(round(cor_matrix, 2), format = "html", table.attr = "style='width: 50%;'")

	W_PositiveRel	W_Autonomy	W_EnvMastery	W_PersGrowth	W_PurposeLife	W_SelfAcceptance	WellBeing	SW_NapriCHuvstv	SW_PsiEmSim	SW_Nastroenie	SW_SocOkr	SW_SamoocZdorov	SW_StUdovl	SubWellBeing	PB_O	PB_U	PB_Z	SO_S.GlobSamootnoshenie	SO_I.Samouvazhenie	SO_II.Autosimpatiya	SO_III.OzhidOtnoshenie	SO_IV.Samointeres	SO_1.Samouverennost	SO_2.OtnoshenieDrugih	SO_3.Samoprinyatie	SO_4.Samorukovodstvo	SO_5.Samoobvinenie	SO_6.Samointeres	SO_7.Samoponimanie	SP_Konfrontaciya	SP_Distancirovanie	SP_Samokontrol	SP_PoiskCocPodderzhki	SP_PrinyatieOtvetstv	SP_BegstvoIzbeganie	SP_Planirovanie	SP_PolPereocenka	ZhS_Vovlechennost	ZhS_Kontrol	ZhS_PrinyatieRiska	ZhS_ZHiznestojkost	P_AK	P_AE	P_KO	P_RN
W_PositiveRel	1.00	0.24	0.57	0.42	0.58	0.63	0.75	0.33	0.36	0.51	0.73	0.45	0.38	0.58	0.08	0.34	0.31	0.12	0.22	0.25	0.44	0.31	0.25	0.38	0.30	0.20	-0.02	0.43	0.17	0.00	-0.02	-0.06	0.42	-0.01	-0.17	0.29	0.31	0.56	0.30	0.40	0.48	-0.06	0.05	0.04	0.04
W_Autonomy	0.24	1.00	0.40	0.38	0.36	0.40	0.59	0.10	0.32	0.30	0.21	0.23	0.27	0.31	-0.12	0.12	0.18	0.14	0.29	0.24	0.18	0.17	0.25	0.08	0.26	0.19	-0.18	0.19	0.19	0.03	-0.17	-0.02	0.04	-0.16	-0.27	0.32	0.15	0.27	0.35	0.41	0.38	0.08	0.08	0.11	0.03
W_EnvMastery	0.57	0.40	1.00	0.44	0.75	0.71	0.84	0.47	0.63	0.59	0.50	0.51	0.55	0.69	0.02	0.28	0.24	0.26	0.44	0.38	0.40	0.29	0.46	0.27	0.33	0.30	-0.27	0.32	0.29	-0.04	-0.10	0.01	0.20	-0.12	-0.32	0.37	0.23	0.66	0.56	0.54	0.68	-0.01	0.12	0.04	0.09
W_PersGrowth	0.42	0.38	0.44	1.00	0.65	0.51	0.71	0.17	0.27	0.41	0.29	0.24	0.34	0.36	0.10	0.19	0.23	0.13	0.28	0.21	0.30	0.23	0.22	0.23	0.22	0.26	-0.14	0.30	0.17	0.00	-0.17	-0.03	0.17	-0.09	-0.20	0.30	0.29	0.38	0.39	0.45	0.45	0.04	0.10	0.08	0.05
W_PurposeLife	0.58	0.36	0.75	0.65	1.00	0.75	0.88	0.37	0.54	0.63	0.51	0.50	0.58	0.66	0.08	0.30	0.29	0.28	0.43	0.38	0.50	0.33	0.40	0.36	0.35	0.31	-0.24	0.41	0.26	-0.07	-0.11	0.00	0.23	-0.07	-0.26	0.41	0.34	0.71	0.57	0.59	0.72	-0.04	0.10	0.03	0.06
W_SelfAcceptance	0.63	0.40	0.71	0.51	0.75	1.00	0.88	0.41	0.57	0.69	0.59	0.57	0.55	0.71	0.06	0.25	0.26	0.29	0.40	0.56	0.55	0.32	0.43	0.40	0.46	0.28	-0.35	0.45	0.30	-0.03	-0.01	-0.08	0.23	-0.23	-0.26	0.33	0.28	0.62	0.46	0.58	0.62	-0.07	0.04	0.04	0.02
WellBeing	0.75	0.59	0.84	0.71	0.88	0.88	1.00	0.41	0.59	0.68	0.62	0.55	0.58	0.72	0.05	0.32	0.33	0.26	0.45	0.45	0.52	0.36	0.43	0.38	0.42	0.33	-0.26	0.46	0.30	-0.03	-0.12	-0.04	0.28	-0.15	-0.32	0.44	0.35	0.70	0.58	0.65	0.73	-0.02	0.10	0.07	0.06
SW_NapriCHuvstv	0.33	0.10	0.47	0.17	0.37	0.41	0.41	1.00	0.55	0.44	0.35	0.41	0.48	0.70	0.17	0.24	0.19	0.23	0.27	0.33	0.30	0.20	0.35	0.18	0.22	0.23	-0.20	0.28	0.28	-0.08	-0.01	-0.04	0.27	-0.08	-0.16	0.16	0.13	0.46	0.31	0.36	0.43	0.14	0.18	0.08	0.19
SW_PsiEmSim	0.36	0.32	0.63	0.27	0.54	0.57	0.59	0.55	1.00	0.63	0.41	0.63	0.60	0.85	0.05	0.24	0.21	0.30	0.44	0.42	0.32	0.11	0.40	0.20	0.26	0.35	-0.35	0.20	0.38	-0.08	-0.06	-0.04	0.17	-0.17	-0.26	0.27	0.15	0.55	0.42	0.49	0.55	0.08	0.15	0.04	0.14
SW_Nastroenie	0.51	0.30	0.59	0.41	0.63	0.69	0.68	0.44	0.63	1.00	0.61	0.68	0.59	0.83	0.10	0.31	0.26	0.26	0.35	0.44	0.43	0.29	0.39	0.34	0.42	0.30	-0.24	0.39	0.31	0.01	0.02	0.05	0.23	-0.11	-0.23	0.30	0.26	0.56	0.39	0.53	0.55	0.01	0.08	0.03	0.08
SW_SocOkr	0.73	0.21	0.50	0.29	0.51	0.59	0.62	0.35	0.41	0.61	1.00	0.55	0.43	0.71	0.04	0.31	0.25	0.19	0.23	0.29	0.40	0.31	0.23	0.31	0.29	0.21	-0.11	0.44	0.23	-0.02	0.01	0.03	0.45	0.00	-0.18	0.30	0.29	0.48	0.31	0.32	0.43	-0.03	0.08	0.09	0.05
SW_SamoocZdorov	0.45	0.23	0.51	0.24	0.50	0.57	0.55	0.41	0.63	0.68	0.55	1.00	0.55	0.80	0.06	0.23	0.22	0.27	0.29	0.41	0.40	0.27	0.39	0.32	0.38	0.23	-0.16	0.34	0.24	0.01	0.00	0.00	0.20	-0.19	-0.15	0.24	0.22	0.53	0.39	0.39	0.51	0.07	0.17	0.12	0.19
SW_StUdovl	0.38	0.27	0.55	0.34	0.58	0.55	0.58	0.48	0.60	0.59	0.43	0.55	1.00	0.79	0.20	0.32	0.26	0.29	0.39	0.31	0.35	0.31	0.40	0.28	0.28	0.33	-0.20	0.32	0.27	-0.11	-0.05	0.09	0.17	-0.05	-0.25	0.35	0.31	0.63	0.45	0.47	0.60	0.05	0.05	0.01	0.10
SubWellBeing	0.58	0.31	0.69	0.36	0.66	0.71	0.72	0.70	0.85	0.83	0.71	0.80	0.79	1.00	0.13	0.35	0.30	0.33	0.43	0.46	0.46	0.30	0.46	0.34	0.38	0.36	-0.28	0.41	0.37	-0.07	-0.02	0.02	0.31	-0.13	-0.27	0.35	0.28	0.69	0.49	0.55	0.66	0.07	0.15	0.07	0.16
PB_O	0.08	-0.12	0.02	0.10	0.08	0.06	0.05	0.17	0.05	0.10	0.04	0.06	0.20	0.13	1.00	0.35	0.35	0.06	0.07	0.01	0.08	0.02	0.07	0.07	0.02	0.14	-0.03	0.07	0.09	-0.02	-0.01	0.05	-0.01	0.15	0.02	0.02	0.05	0.09	0.01	0.06	0.05	0.12	-0.01	0.01	0.04
PB_U	0.34	0.12	0.28	0.19	0.30	0.25	0.32	0.24	0.24	0.31	0.31	0.23	0.32	0.35	0.35	1.00	0.51	0.08	0.07	0.12	0.28	0.26	0.23	0.28	0.27	0.15	0.07	0.25	0.00	-0.02	0.00	0.09	0.19	0.04	-0.10	0.18	0.18	0.34	0.26	0.21	0.32	-0.02	-0.07	-0.08	0.02
PB_Z	0.31	0.18	0.24	0.23	0.29	0.26	0.33	0.19	0.21	0.26	0.25	0.22	0.26	0.30	0.35	0.51	1.00	0.11	0.12	0.17	0.33	0.28	0.26	0.30	0.20	0.10	-0.07	0.29	0.05	-0.04	-0.07	-0.02	0.10	0.02	-0.15	0.23	0.14	0.32	0.24	0.30	0.32	0.02	0.03	0.03	0.07
SO_S.GlobSamootnoshenie	0.12	0.14	0.26	0.13	0.28	0.29	0.26	0.23	0.30	0.26	0.19	0.27	0.29	0.33	0.06	0.08	0.11	1.00	0.60	0.37	0.41	0.22	0.42	0.32	0.22	0.35	-0.31	0.26	0.36	0.00	-0.01	0.01	0.14	-0.08	-0.12	0.23	0.17	0.51	0.33	0.39	0.47	-0.02	0.06	0.03	0.07
SO_I.Samouvazhenie	0.22	0.29	0.44	0.28	0.43	0.40	0.45	0.27	0.44	0.35	0.23	0.29	0.39	0.43	0.07	0.07	0.12	0.60	1.00	0.40	0.41	0.02	0.52	0.19	0.13	0.54	-0.56	0.22	0.68	-0.09	-0.15	-0.06	0.05	-0.21	-0.34	0.32	0.18	0.62	0.52	0.52	0.64	-0.01	-0.01	-0.05	0.04
SO_II.Autosimpatiya	0.25	0.24	0.38	0.21	0.38	0.56	0.45	0.33	0.42	0.44	0.29	0.41	0.31	0.46	0.01	0.12	0.17	0.37	0.40	1.00	0.51	0.34	0.52	0.38	0.65	0.24	-0.62	0.38	0.32	-0.01	0.00	-0.12	0.14	-0.38	-0.20	0.16	0.11	0.43	0.22	0.29	0.36	-0.04	0.03	0.01	0.06
SO_III.OzhidOtnoshenie	0.44	0.18	0.40	0.30	0.50	0.55	0.52	0.30	0.32	0.43	0.40	0.40	0.35	0.46	0.08	0.28	0.33	0.41	0.41	0.51	1.00	0.50	0.59	0.83	0.53	0.31	-0.22	0.69	0.21	-0.09	-0.13	-0.07	0.28	-0.19	-0.24	0.25	0.24	0.58	0.34	0.42	0.51	-0.04	-0.04	-0.07	0.06
SO_IV.Samointeres	0.31	0.17	0.29	0.23	0.33	0.32	0.36	0.20	0.11	0.29	0.31	0.27	0.31	0.30	0.02	0.26	0.28	0.22	0.02	0.34	0.50	1.00	0.48	0.57	0.55	0.03	0.17	0.74	-0.15	-0.03	0.02	0.01	0.22	-0.04	-0.08	0.30	0.31	0.39	0.22	0.20	0.32	0.03	0.08	0.05	0.10
SO_1.Samouverennost	0.25	0.25	0.46	0.22	0.40	0.43	0.43	0.35	0.40	0.39	0.23	0.39	0.40	0.46	0.07	0.23	0.26	0.42	0.52	0.52	0.59	0.48	1.00	0.45	0.48	0.21	-0.20	0.48	0.19	0.09	0.02	0.03	0.14	-0.13	-0.19	0.34	0.27	0.49	0.37	0.38	0.48	0.01	-0.01	0.01	0.10
SO_2.OtnoshenieDrugih	0.38	0.08	0.27	0.23	0.36	0.40	0.38	0.18	0.20	0.34	0.31	0.32	0.28	0.34	0.07	0.28	0.30	0.32	0.19	0.38	0.83	0.57	0.45	1.00	0.57	0.16	0.07	0.54	0.06	-0.07	-0.09	-0.07	0.26	-0.14	-0.17	0.16	0.19	0.49	0.23	0.31	0.39	-0.04	-0.04	-0.05	0.04
SO_3.Samoprinyatie	0.30	0.26	0.33	0.22	0.35	0.46	0.42	0.22	0.26	0.42	0.29	0.38	0.28	0.38	0.02	0.27	0.20	0.22	0.13	0.65	0.53	0.55	0.48	0.57	1.00	0.14	0.00	0.44	0.01	0.02	0.04	0.02	0.17	-0.22	-0.17	0.24	0.21	0.44	0.25	0.30	0.38	0.05	0.07	0.03	0.09
SO_4.Samorukovodstvo	0.20	0.19	0.30	0.26	0.31	0.28	0.33	0.23	0.35	0.30	0.21	0.23	0.33	0.36	0.14	0.15	0.10	0.35	0.54	0.24	0.31	0.03	0.21	0.16	0.14	1.00	-0.33	0.11	0.30	-0.15	-0.10	-0.02	0.07	-0.03	-0.23	0.23	0.19	0.42	0.24	0.36	0.38	-0.05	-0.02	-0.10	-0.01
SO_5.Samoobvinenie	-0.02	-0.18	-0.27	-0.14	-0.24	-0.35	-0.26	-0.20	-0.35	-0.24	-0.11	-0.16	-0.20	-0.28	-0.03	0.07	-0.07	-0.31	-0.56	-0.62	-0.22	0.17	-0.20	0.07	0.00	-0.33	1.00	-0.01	-0.52	0.11	0.13	0.19	0.03	0.40	0.28	-0.08	0.01	-0.35	-0.25	-0.34	-0.34	0.07	0.03	0.07	0.02
SO_6.Samointeres	0.43	0.19	0.32	0.30	0.41	0.45	0.46	0.28	0.20	0.39	0.44	0.34	0.32	0.41	0.07	0.25	0.29	0.26	0.22	0.38	0.69	0.74	0.48	0.54	0.44	0.11	-0.01	1.00	0.08	-0.07	-0.10	-0.05	0.22	-0.10	-0.17	0.27	0.24	0.44	0.24	0.27	0.36	0.03	0.04	0.02	0.10
SO_7.Samoponimanie	0.17	0.19	0.29	0.17	0.26	0.30	0.30	0.28	0.38	0.31	0.23	0.24	0.27	0.37	0.09	0.00	0.05	0.36	0.68	0.32	0.21	-0.15	0.19	0.06	0.01	0.30	-0.52	0.08	1.00	-0.06	-0.13	-0.10	0.09	-0.27	-0.25	0.16	0.02	0.48	0.40	0.40	0.49	-0.04	-0.05	-0.09	-0.01
SP_Konfrontaciya	0.00	0.03	-0.04	0.00	-0.07	-0.03	-0.03	-0.08	-0.08	0.01	-0.02	0.01	-0.11	-0.07	-0.02	-0.02	-0.04	0.00	-0.09	-0.01	-0.09	-0.03	0.09	-0.07	0.02	-0.15	0.11	-0.07	-0.06	1.00	0.47	0.44	0.39	0.41	0.57	0.32	0.38	-0.17	-0.19	-0.22	-0.21	-0.03	0.01	0.01	-0.04
SP_Distancirovanie	-0.02	-0.17	-0.10	-0.17	-0.11	-0.01	-0.12	-0.01	-0.06	0.02	0.01	0.00	-0.05	-0.02	-0.01	0.00	-0.07	-0.01	-0.15	0.00	-0.13	0.02	0.02	-0.09	0.04	-0.10	0.13	-0.10	-0.13	0.47	1.00	0.52	0.24	0.39	0.60	0.17	0.33	-0.21	-0.30	-0.36	-0.31	-0.01	0.04	0.10	-0.04
SP_Samokontrol	-0.06	-0.02	0.01	-0.03	0.00	-0.08	-0.04	-0.04	-0.04	0.05	0.03	0.00	0.09	0.02	0.05	0.09	-0.02	0.01	-0.06	-0.12	-0.07	0.01	0.03	-0.07	0.02	-0.02	0.19	-0.05	-0.10	0.44	0.52	1.00	0.24	0.61	0.42	0.47	0.45	-0.11	-0.11	-0.28	-0.16	0.15	0.10	0.12	0.11
SP_PoiskCocPodderzhki	0.42	0.04	0.20	0.17	0.23	0.23	0.28	0.27	0.17	0.23	0.45	0.20	0.17	0.31	-0.01	0.19	0.10	0.14	0.05	0.14	0.28	0.22	0.14	0.26	0.17	0.07	0.03	0.22	0.09	0.39	0.24	0.24	1.00	0.28	0.28	0.41	0.46	0.21	0.08	0.05	0.14	-0.01	0.11	0.07	0.07
SP_PrinyatieOtvetstv	-0.01	-0.16	-0.12	-0.09	-0.07	-0.23	-0.15	-0.08	-0.17	-0.11	0.00	-0.19	-0.05	-0.13	0.15	0.04	0.02	-0.08	-0.21	-0.38	-0.19	-0.04	-0.13	-0.14	-0.22	-0.03	0.40	-0.10	-0.27	0.41	0.39	0.61	0.28	1.00	0.48	0.33	0.37	-0.24	-0.26	-0.35	-0.31	0.09	0.07	0.04	0.07
SP_BegstvoIzbeganie	-0.17	-0.27	-0.32	-0.20	-0.26	-0.26	-0.32	-0.16	-0.26	-0.23	-0.18	-0.15	-0.25	-0.27	0.02	-0.10	-0.15	-0.12	-0.34	-0.20	-0.24	-0.08	-0.19	-0.17	-0.17	-0.23	0.28	-0.17	-0.25	0.57	0.60	0.42	0.28	0.48	1.00	0.06	0.22	-0.44	-0.44	-0.46	-0.50	0.00	0.07	0.03	-0.04
SP_Planirovanie	0.29	0.32	0.37	0.30	0.41	0.33	0.44	0.16	0.27	0.30	0.30	0.24	0.35	0.35	0.02	0.18	0.23	0.23	0.32	0.16	0.25	0.30	0.34	0.16	0.24	0.23	-0.08	0.27	0.16	0.32	0.17	0.47	0.41	0.33	0.06	1.00	0.64	0.40	0.34	0.22	0.38	0.12	0.12	0.10	0.10
SP_PolPereocenka	0.31	0.15	0.23	0.29	0.34	0.28	0.35	0.13	0.15	0.26	0.29	0.22	0.31	0.28	0.05	0.18	0.14	0.17	0.18	0.11	0.24	0.31	0.27	0.19	0.21	0.19	0.01	0.24	0.02	0.38	0.33	0.45	0.46	0.37	0.22	0.64	1.00	0.32	0.18	0.20	0.27	0.05	0.11	0.10	0.08
ZhS_Vovlechennost	0.56	0.27	0.66	0.38	0.71	0.62	0.70	0.46	0.55	0.56	0.48	0.53	0.63	0.69	0.09	0.34	0.32	0.51	0.62	0.43	0.58	0.39	0.49	0.49	0.44	0.42	-0.35	0.44	0.48	-0.17	-0.21	-0.11	0.21	-0.24	-0.44	0.40	0.32	1.00	0.63	0.68	0.89	-0.12	-0.06	-0.16	-0.05
ZhS_Kontrol	0.30	0.35	0.56	0.39	0.57	0.46	0.58	0.31	0.42	0.39	0.31	0.39	0.45	0.49	0.01	0.26	0.24	0.33	0.52	0.22	0.34	0.22	0.37	0.23	0.25	0.24	-0.25	0.24	0.40	-0.19	-0.30	-0.11	0.08	-0.26	-0.44	0.34	0.18	0.63	1.00	0.61	0.89	0.01	0.05	-0.01	0.01
ZhS_PrinyatieRiska	0.40	0.41	0.54	0.45	0.59	0.58	0.65	0.36	0.49	0.53	0.32	0.39	0.47	0.55	0.06	0.21	0.30	0.39	0.52	0.29	0.42	0.20	0.38	0.31	0.30	0.36	-0.34	0.27	0.40	-0.22	-0.36	-0.28	0.05	-0.35	-0.46	0.22	0.20	0.68	0.61	1.00	0.81	-0.03	0.02	-0.02	0.03
ZhS_ZHiznestojkost	0.48	0.38	0.68	0.45	0.72	0.62	0.73	0.43	0.55	0.55	0.43	0.51	0.60	0.66	0.05	0.32	0.32	0.47	0.64	0.36	0.51	0.32	0.48	0.39	0.38	0.38	-0.34	0.36	0.49	-0.21	-0.31	-0.16	0.14	-0.31	-0.50	0.38	0.27	0.89	0.89	0.81	1.00	-0.05	0.01	-0.08	-0.01
P_AK	-0.06	0.08	-0.01	0.04	-0.04	-0.07	-0.02	0.14	0.08	0.01	-0.03	0.07	0.05	0.07	0.12	-0.02	0.02	-0.02	-0.01	-0.04	-0.04	0.03	0.01	-0.04	0.05	-0.05	0.07	0.03	-0.04	-0.03	-0.01	0.15	-0.01	0.09	0.00	0.12	0.05	-0.12	0.01	-0.03	-0.05	1.00	0.74	0.62	0.78
P_AE	0.05	0.08	0.12	0.10	0.10	0.04	0.10	0.18	0.15	0.08	0.08	0.17	0.05	0.15	-0.01	-0.07	0.03	0.06	-0.01	0.03	-0.04	0.08	-0.01	-0.04	0.07	-0.02	0.03	0.04	-0.05	0.01	0.04	0.10	0.11	0.07	0.07	0.12	0.11	-0.06	0.05	0.02	0.01	0.74	1.00	0.79	0.76
P_KO	0.04	0.11	0.04	0.08	0.03	0.04	0.07	0.08	0.04	0.03	0.09	0.12	0.01	0.07	0.01	-0.08	0.03	0.03	-0.05	0.01	-0.07	0.05	0.01	-0.05	0.03	-0.10	0.07	0.02	-0.09	0.01	0.10	0.12	0.07	0.04	0.03	0.10	0.10	-0.16	-0.01	-0.02	-0.08	0.62	0.79	1.00	0.62
P_RN	0.04	0.03	0.09	0.05	0.06	0.02	0.06	0.19	0.14	0.08	0.05	0.19	0.10	0.16	0.04	0.02	0.07	0.07	0.04	0.06	0.06	0.10	0.10	0.04	0.09	-0.01	0.02	0.10	-0.01	-0.04	-0.04	0.11	0.07	0.07	-0.04	0.10	0.08	-0.05	0.01	0.03	-0.01	0.78	0.76	0.62	1.00

Регрессионный анализ

# Определение переменных
dependent_variable <- "WellBeing"
 independent_variables <- c(#"W_PositiveRel"
#                            , "W_Autonomy"
#                            , "W_EnvMastery"
#                            , "W_PersGrowth"
#                            , "W_PurposeLife"
#                            , "W_SelfAcceptance"
#                            , "SW_NapriCHuvstv"
#                            , "SW_PsiEmSim"
#                            , "SW_Nastroenie"
#                            , "SW_SocOkr"
#                            , "SW_SamoocZdorov"
#                            , "SW_StUdovl"
#                            , "SubWellBeing"
#                           , 
                           "PB_O"
                           , "PB_U"
                           , "PB_Z"
                           , "SO_S.GlobSamootnoshenie"
                           , "SO_I.Samouvazhenie"
                           , "SO_II.Autosimpatiya"
                           , "SO_III.OzhidOtnoshenie"
                           , "SO_IV.Samointeres"
                           , "SO_1.Samouverennost"
                           , "SO_2.OtnoshenieDrugih"
                           , "SO_3.Samoprinyatie"
                           , "SO_4.Samorukovodstvo"
                           , "SO_5.Samoobvinenie"
                           , "SO_6.Samointeres"
                           , "SO_7.Samoponimanie"
                           , "SP_Konfrontaciya"
                           , "SP_Distancirovanie"
                           , "SP_Samokontrol"
                           , "SP_PoiskCocPodderzhki"
                           , "SP_PrinyatieOtvetstv"
                           ,"SP_BegstvoIzbeganie"
                           , "SP_Planirovanie"
                           , "SP_PolPereocenka"
                           ,"ZhS_Vovlechennost"
                           , "ZhS_Kontrol"
                           , "ZhS_PrinyatieRiska"
                           ,"ZhS_ZHiznestojkost"
                           , "P_AK"
                           , "P_AE"
                           , "P_KO"
                           , "P_RN")

Полная модель

Модель без учета взаимодействий

formula_no_interaction <- as.formula(paste(dependent_variable, "~", paste(independent_variables, collapse = " + ")))
model_no_interaction <- lm(formula_no_interaction, data = Data)
summary(model_no_interaction)

## 
## Call:
## lm(formula = formula_no_interaction, data = Data)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -169.384  -13.088    1.943   16.800   64.541 
## 
## Coefficients: (1 not defined because of singularities)
##                          Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             102.05113   29.35559   3.476 0.000644 ***
## PB_O                     -1.01695    0.59311  -1.715 0.088229 .  
## PB_U                      8.29524    3.70295   2.240 0.026368 *  
## PB_Z                      2.68748    2.92373   0.919 0.359288    
## SO_S.GlobSamootnoshenie  -0.75394    0.66948  -1.126 0.261676    
## SO_I.Samouvazhenie        1.51249    1.67204   0.905 0.366963    
## SO_II.Autosimpatiya       1.19261    1.80197   0.662 0.508967    
## SO_III.OzhidOtnoshenie    3.61810    2.71015   1.335 0.183645    
## SO_IV.Samointeres         0.57796    2.32977   0.248 0.804373    
## SO_1.Samouverennost      -3.42984    2.35376  -1.457 0.146902    
## SO_2.OtnoshenieDrugih    -2.09318    2.97333  -0.704 0.482399    
## SO_3.Samoprinyatie        3.98023    2.17905   1.827 0.069505 .  
## SO_4.Samorukovodstvo      1.61229    2.35959   0.683 0.495346    
## SO_5.Samoobvinenie       -0.16396    2.44102  -0.067 0.946525    
## SO_6.Samointeres          1.61145    3.02923   0.532 0.595439    
## SO_7.Samoponimanie        0.74351    2.00723   0.370 0.711531    
## SP_Konfrontaciya          0.25193    0.17450   1.444 0.150651    
## SP_Distancirovanie        0.14158    0.16206   0.874 0.383527    
## SP_Samokontrol           -0.16702    0.20624  -0.810 0.419167    
## SP_PoiskCocPodderzhki     0.12967    0.14071   0.922 0.358067    
## SP_PrinyatieOtvetstv      0.17184    0.16823   1.021 0.308470    
## SP_BegstvoIzbeganie      -0.06850    0.18044  -0.380 0.704705    
## SP_Planirovanie           0.44301    0.17832   2.484 0.013943 *  
## SP_PolPereocenka          0.08041    0.17503   0.459 0.646537    
## ZhS_Vovlechennost         0.79031    0.41391   1.909 0.057885 .  
## ZhS_Kontrol               0.50640    0.28155   1.799 0.073846 .  
## ZhS_PrinyatieRiska        3.18172    0.66973   4.751 4.27e-06 ***
## ZhS_ZHiznestojkost             NA         NA      NA       NA    
## P_AK                     -0.55298    0.36087  -1.532 0.127287    
## P_AE                      0.56131    0.47463   1.183 0.238596    
## P_KO                      0.59884    0.38283   1.564 0.119605    
## P_RN                     -0.16973    0.37596  -0.451 0.652235    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 29.39 on 171 degrees of freedom
##   (84 observations deleted due to missingness)
## Multiple R-squared:  0.7171, Adjusted R-squared:  0.6674 
## F-statistic: 14.45 on 30 and 171 DF,  p-value: < 2.2e-16

Модель с учетом взаимодействий

interaction_terms <- paste("Gender *", independent_variables, collapse = " + ")
formula_with_interactions <- as.formula(paste(dependent_variable, "~", paste(independent_variables, collapse = " + "), " + ", interaction_terms))
model_with_interactions <- lm(formula_with_interactions, data = Data)
summary(model_with_interactions)

## 
## Call:
## lm(formula = formula_with_interactions, data = Data)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -149.718  -12.977    0.838   14.929   75.311 
## 
## Coefficients: (2 not defined because of singularities)
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     130.64546   39.37702   3.318  0.00116 ** 
## PB_O                             -1.86249    0.88465  -2.105  0.03705 *  
## PB_U                              7.84270    4.98917   1.572  0.11822    
## PB_Z                             -2.23473    3.55857  -0.628  0.53104    
## SO_S.GlobSamootnoshenie          -0.44103    0.92936  -0.475  0.63585    
## SO_I.Samouvazhenie               -0.48685    2.35501  -0.207  0.83652    
## SO_II.Autosimpatiya              -0.79426    2.28552  -0.348  0.72872    
## SO_III.OzhidOtnoshenie            2.01315    3.57516   0.563  0.57427    
## SO_IV.Samointeres                 0.47926    3.04930   0.157  0.87534    
## SO_1.Samouverennost               0.94584    3.28222   0.288  0.77364    
## SO_2.OtnoshenieDrugih             1.91139    4.21765   0.453  0.65112    
## SO_3.Samoprinyatie                5.67900    2.76260   2.056  0.04167 *  
## SO_4.Samorukovodstvo              2.33474    2.83382   0.824  0.41141    
## SO_5.Samoobvinenie                0.00213    3.13589   0.001  0.99946    
## SO_6.Samointeres                  1.66004    3.81495   0.435  0.66413    
## SO_7.Samoponimanie                3.90951    2.79358   1.399  0.16389    
## SP_Konfrontaciya                  0.11539    0.24031   0.480  0.63183    
## SP_Distancirovanie                0.22592    0.21396   1.056  0.29284    
## SP_Samokontrol                    0.13939    0.26205   0.532  0.59563    
## SP_PoiskCocPodderzhki             0.08947    0.18573   0.482  0.63074    
## SP_PrinyatieOtvetstv              0.12950    0.22792   0.568  0.57083    
## SP_BegstvoIzbeganie              -0.24625    0.26179  -0.941  0.34851    
## SP_Planirovanie                   0.61088    0.24451   2.498  0.01363 *  
## SP_PolPereocenka                  0.01052    0.23920   0.044  0.96499    
## ZhS_Vovlechennost                -0.06592    0.54056  -0.122  0.90311    
## ZhS_Kontrol                       0.38852    0.39069   0.994  0.32173    
## ZhS_PrinyatieRiska                4.62244    0.87761   5.267 5.11e-07 ***
## ZhS_ZHiznestojkost                     NA         NA      NA       NA    
## P_AK                             -0.91736    0.46946  -1.954  0.05269 .  
## P_AE                              0.89524    0.62239   1.438  0.15255    
## P_KO                              0.24466    0.47661   0.513  0.60853    
## P_RN                             -0.74739    0.51486  -1.452  0.14884    
## GenderЖ                          24.94456   65.97188   0.378  0.70592    
## PB_O:GenderЖ                      0.60827    1.42526   0.427  0.67019    
## PB_U:GenderЖ                     -0.78024    7.85029  -0.099  0.92097    
## PB_Z:GenderЖ                      8.37073    7.38081   1.134  0.25868    
## SO_S.GlobSamootnoshenie:GenderЖ  -0.80132    1.54671  -0.518  0.60522    
## SO_I.Samouvazhenie:GenderЖ        3.25789    3.79017   0.860  0.39150    
## SO_II.Autosimpatiya:GenderЖ       5.10291    4.07299   1.253  0.21234    
## SO_III.OzhidOtnoshenie:GenderЖ    1.76786    5.88780   0.300  0.76443    
## SO_IV.Samointeres:GenderЖ         0.20270    5.28234   0.038  0.96944    
## SO_1.Samouverennost:GenderЖ      -7.32276    5.08389  -1.440  0.15199    
## SO_2.OtnoshenieDrugih:GenderЖ    -5.36515    6.60736  -0.812  0.41817    
## SO_3.Samoprinyatie:GenderЖ       -6.13903    5.04188  -1.218  0.22542    
## SO_4.Samorukovodstvo:GenderЖ      0.46522    5.47438   0.085  0.93240    
## SO_5.Samoobvinenie:GenderЖ       -2.16255    5.38047  -0.402  0.68835    
## SO_6.Samointeres:GenderЖ          4.04950    6.80450   0.595  0.55272    
## SO_7.Samoponimanie:GenderЖ       -7.06309    4.22621  -1.671  0.09690 .  
## SP_Konfrontaciya:GenderЖ          0.30120    0.39238   0.768  0.44401    
## SP_Distancirovanie:GenderЖ       -0.45997    0.38118  -1.207  0.22958    
## SP_Samokontrol:GenderЖ           -1.13269    0.48092  -2.355  0.01990 *  
## SP_PoiskCocPodderzhki:GenderЖ    -0.12775    0.33791  -0.378  0.70596    
## SP_PrinyatieOtvetstv:GenderЖ      0.48633    0.37414   1.300  0.19579    
## SP_BegstvoIzbeganie:GenderЖ       0.30345    0.40005   0.759  0.44942    
## SP_Planirovanie:GenderЖ          -0.40090    0.38534  -1.040  0.29996    
## SP_PolPereocenka:GenderЖ          0.12373    0.40253   0.307  0.75900    
## ZhS_Vovlechennost:GenderЖ         1.42304    0.93323   1.525  0.12955    
## ZhS_Kontrol:GenderЖ               0.20244    0.62362   0.325  0.74595    
## ZhS_PrinyatieRiska:GenderЖ       -3.64514    1.52112  -2.396  0.01788 *  
## ZhS_ZHiznestojkost:GenderЖ             NA         NA      NA       NA    
## P_AK:GenderЖ                      0.89403    0.89185   1.002  0.31786    
## P_AE:GenderЖ                     -1.15012    1.04542  -1.100  0.27315    
## P_KO:GenderЖ                      0.46758    0.89743   0.521  0.60317    
## P_RN:GenderЖ                      0.96617    0.86896   1.112  0.26810    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 28.94 on 140 degrees of freedom
##   (84 observations deleted due to missingness)
## Multiple R-squared:  0.7754, Adjusted R-squared:  0.6775 
## F-statistic: 7.922 on 61 and 140 DF,  p-value: < 2.2e-16

Сокращенная модель

Без взаимодействия

# Пошаговый выбор переменных
optimal_model_NO <- step(model_no_interaction, direction = "both", trace = 0)

# Результаты
summary(optimal_model_NO)

## 
## Call:
## lm(formula = WellBeing ~ PB_O + PB_U + SO_III.OzhidOtnoshenie + 
##     SO_3.Samoprinyatie + SP_Konfrontaciya + SP_Planirovanie + 
##     ZhS_Vovlechennost + ZhS_Kontrol + ZhS_PrinyatieRiska + P_AK + 
##     P_AE + P_KO, data = Data)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -167.042  -12.337    0.717   17.431   62.477 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)            113.8991    19.2977   5.902 1.63e-08 ***
## PB_O                    -0.8473     0.5344  -1.586  0.11449    
## PB_U                     9.3045     3.4459   2.700  0.00756 ** 
## SO_III.OzhidOtnoshenie   2.9886     1.1865   2.519  0.01260 *  
## SO_3.Samoprinyatie       4.5757     1.4267   3.207  0.00157 ** 
## SP_Konfrontaciya         0.2727     0.1419   1.922  0.05611 .  
## SP_Planirovanie          0.5727     0.1422   4.026 8.19e-05 ***
## ZhS_Vovlechennost        0.9607     0.3716   2.585  0.01048 *  
## ZhS_Kontrol              0.4444     0.2551   1.742  0.08309 .  
## ZhS_PrinyatieRiska       3.1626     0.5901   5.360 2.41e-07 ***
## P_AK                    -0.7510     0.3002  -2.502  0.01320 *  
## P_AE                     0.7613     0.4102   1.856  0.06500 .  
## P_KO                     0.5041     0.3479   1.449  0.14902    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 28.82 on 189 degrees of freedom
##   (84 observations deleted due to missingness)
## Multiple R-squared:  0.6992, Adjusted R-squared:  0.6801 
## F-statistic: 36.61 on 12 and 189 DF,  p-value: < 2.2e-16

C взаимодействием

# Пошаговый выбор переменных
optimal_model_Gen <- step(model_with_interactions, direction = "both", trace = 0)

# Результаты
summary(optimal_model_Gen)

## 
## Call:
## lm(formula = WellBeing ~ PB_O + PB_U + SO_II.Autosimpatiya + 
##     SO_III.OzhidOtnoshenie + SO_3.Samoprinyatie + SO_7.Samoponimanie + 
##     SP_Samokontrol + SP_PrinyatieOtvetstv + SP_Planirovanie + 
##     ZhS_Vovlechennost + ZhS_Kontrol + ZhS_PrinyatieRiska + P_AK + 
##     P_AE + P_RN + Gender + SP_PoiskCocPodderzhki + SO_II.Autosimpatiya:Gender + 
##     SO_3.Samoprinyatie:Gender + SO_7.Samoponimanie:Gender + SP_Samokontrol:Gender + 
##     SP_PrinyatieOtvetstv:Gender + ZhS_Vovlechennost:Gender + 
##     ZhS_PrinyatieRiska:Gender + P_RN:Gender + PB_O:Gender, data = Data)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -155.051  -13.477    1.426   15.649   71.721 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                  138.30673   24.85898   5.564 9.76e-08 ***
## PB_O                          -1.98880    0.74215  -2.680 0.008071 ** 
## PB_U                           7.85734    3.32140   2.366 0.019092 *  
## SO_II.Autosimpatiya           -0.91791    1.20052  -0.765 0.445543    
## SO_III.OzhidOtnoshenie         3.33804    1.20344   2.774 0.006143 ** 
## SO_3.Samoprinyatie             6.53799    2.10318   3.109 0.002194 ** 
## SO_7.Samoponimanie             3.24222    2.04754   1.583 0.115120    
## SP_Samokontrol                 0.27269    0.21312   1.280 0.202402    
## SP_PrinyatieOtvetstv           0.07534    0.19416   0.388 0.698460    
## SP_Planirovanie                0.51969    0.14656   3.546 0.000502 ***
## ZhS_Vovlechennost             -0.01996    0.43998  -0.045 0.963871    
## ZhS_Kontrol                    0.47455    0.24889   1.907 0.058204 .  
## ZhS_PrinyatieRiska             4.42042    0.71644   6.170 4.61e-09 ***
## P_AK                          -0.70810    0.34553  -2.049 0.041925 *  
## P_AE                           0.75034    0.36171   2.074 0.039506 *  
## P_RN                          -0.76797    0.40851  -1.880 0.061776 .  
## GenderЖ                       22.86595   35.39841   0.646 0.519152    
## SP_PoiskCocPodderzhki          0.21167    0.12020   1.761 0.079995 .  
## SO_II.Autosimpatiya:GenderЖ    6.86607    2.13625   3.214 0.001558 ** 
## SO_3.Samoprinyatie:GenderЖ    -9.11264    3.66166  -2.489 0.013757 *  
## SO_7.Samoponimanie:GenderЖ    -5.65467    3.18484  -1.775 0.077554 .  
## SP_Samokontrol:GenderЖ        -1.24661    0.37946  -3.285 0.001231 ** 
## SP_PrinyatieOtvetstv:GenderЖ   0.40937    0.30486   1.343 0.181065    
## ZhS_Vovlechennost:GenderЖ      1.09994    0.64206   1.713 0.088459 .  
## ZhS_PrinyatieRiska:GenderЖ    -3.09727    1.19952  -2.582 0.010639 *  
## P_RN:GenderЖ                   1.22959    0.49570   2.480 0.014065 *  
## PB_O:GenderЖ                   1.93573    0.99301   1.949 0.052852 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 27.06 on 175 degrees of freedom
##   (84 observations deleted due to missingness)
## Multiple R-squared:  0.7546, Adjusted R-squared:  0.7181 
## F-statistic: 20.69 on 26 and 175 DF,  p-value: < 2.2e-16

Графики

Data |>
  pivot_longer(cols = starts_with("SO_"), names_to = "Variable", values_to = "Value") |> 
  ggplot(aes(y = Value, x = WellBeing, col = Gender)) +
  geom_point() +
  geom_smooth(method = 'lm', se = TRUE) + 
  facet_wrap(~ Variable, ncol = 2) +  # ncol устанавливает количество столбцов, измените его в зависимости от количества переменных
  labs(title = "Взаимосвязи с самоотношением", y = "Самоотношение", x = "Благополучие") +
  theme_light()

Import_Descriptive

2024-07-22

Техническая информация и библиотеки

Корреляционная матрица

Регрессионный анализ

Полная модель

Модель без учета взаимодействий

Модель с учетом взаимодействий

Сокращенная модель

Без взаимодействия

C взаимодействием

Графики