Skip to contents

Latent Factors Recovery from Variables Loadings

Source: R/model_factors.R
model_factors.Rd

This function retrieves the latent factors and their variable loadings which can be used as R objects to perform other analysis.

Arguments

data

An R object obtained from exploratory factor analysis (EFA) using the fa function in psych package.

DATA

A data.frame, the raw data used to carry out the parallel analysis to obtain data object.

Value

A list with the following components:

Latent_frame

data.frame of latent factors based on the variables loadings.

Latent_1

data.frame of variables in Latent factor 1 with their loadings.

Latent_2

data.frame of variables in Latent factor 2 with their loadings.

Latent_3

data.frame of variables in Latent factor 3 with their loadings.

Latent_4

data.frame of variables in Latent factor 3 with their loadings.

Latent_5

data.frame of variables in Latent factor 5 with their loadings.

Latent_6

data.frame of variables in Latent factor 6 with their loadings.

Latent_7

data.frame of variables in Latent factor 7 with their loadings.

Latent_8

data.frame of variables in Latent factor 8 with their loadings.

Latent_9

data.frame of variables in Latent factor 9 with their loadings.

Examples

library(psych)
#> 
#> Attaching package: 'psych'
#> The following objects are masked from 'package:ggplot2':
#> 
#>     %+%, alpha
Data <- Quicksummary
GGn <- names(Data)
GG <- ncol(Data)
GGx <- c(paste0('x0', 1:9), paste("x", 10:ncol(Data), sep = ""))
names(Data) <- GGx
lll <- fa.parallel(Data, fm = 'minres', fa = 'fa')

#> Parallel analysis suggests that the number of factors =  5  and the number of components =  NA 
dat <- fa(Data, nfactors = lll[["nfact"]], rotate = "varimax",fm="minres")

model_factors(data = dat, DATA = Data)
#> 
#> Loadings:
#>     MR1    MR2    MR3    MR5    MR4   
#> x11  0.513                            
#> x12  0.611                            
#> x13  0.559                            
#> x20  0.556                            
#> x24  0.617                       0.527
#> x25  0.718                            
#> x26  0.595                            
#> x01         0.625                     
#> x02         0.783                0.541
#> x10         0.631                     
#> x28        -0.610                     
#> x04                0.740              
#> x05                0.792              
#> x06                0.720              
#> x08                0.594         0.452
#> x17                       0.667       
#> x18                       0.527       
#> x19                       0.592       
#> x03                              0.523
#> x07                       0.417       
#> x09                       0.403       
#> x14                                   
#> x15  0.480                            
#> x16                                   
#> x21  0.492                            
#> x22                              0.481
#> x23        -0.440                0.499
#> x27                              0.465
#> x29                                   
#> 
#>                 MR1  MR2   MR3   MR5   MR4
#> SS loadings    3.85 2.90 2.786 2.441 2.203
#> Proportion Var 0.13 0.10 0.096 0.084 0.076
#> Cumulative Var 0.13 0.23 0.329 0.413 0.489
#> $Latent_frame
#> # A tibble: 103 × 5
#>      MR1   MR2   MR3   MR4   MR5
#>    <dbl> <dbl> <dbl> <dbl> <dbl>
#>  1  16.7  6.28  2.99 11.2  10.4 
#>  2  18.6  6.28  2.99  9.76 10.4 
#>  3  16.3  3.23  2.99 11.5   9.22
#>  4  16.7  6.28  2.99 11.2  10.4 
#>  5  18.1  5.65  2.99 11.2  10.4 
#>  6  18.1  6.28  2.99 11.2  10.4 
#>  7  19.1  6.28  2.25 11.2   9.22
#>  8  18.1  5.65  2.99 11.2  10.4 
#>  9  18.1  5.65  2.99 11.2  10.4 
#> 10  19.1  6.28  2.25 11.2   9.22
#> # ℹ 93 more rows
#> 
#> $Latent_1
#>   MR1 loading
#> 1 x11    0.51
#> 2 x12    0.61
#> 3 x13    0.56
#> 4 x20    0.56
#> 6 x25    0.72
#> 7 x26    0.59
#> 8 x15    0.48
#> 9 x21    0.49
#> 
#> $Latent_2
#>   MR2 loading
#> 1 x01    0.62
#> 3 x10    0.63
#> 4 x28   -0.61
#> 
#> $Latent_3
#>   MR3 loading
#> 1 x04    0.74
#> 2 x05    0.79
#> 3 x06    0.72
#> 
#> $Latent_4
#>   MR4 loading
#> 1 x24    0.53
#> 2 x02    0.54
#> 3 x08    0.45
#> 4 x03    0.52
#> 5 x22    0.48
#> 6 x23    0.50
#> 7 x27    0.46
#> 
#> $Latent_5
#>   MR5 loading
#> 1 x17    0.67
#> 2 x18    0.53
#> 3 x19    0.59
#> 4 x07    0.42
#> 5 x09    0.40
#> 
#> $Latent_6
#> NULL
#> 
#> $Latent_7
#> NULL
#> 
#> $Latent_8
#> NULL
#> 
#> $Latent_9
#> NULL
#>