Análise fatorial exploratória de escalas (variáveis contínuas)
Explorando as correlações com visualizações do d3heatmap e corrr
load("~/Dropbox/R Stat/bd2.RData")

names(bd2)[84:85] <- c("notas_port", "notas_mat")
bd2$notas_port <- ave(bd2$notas_port, bd2$serie, FUN=scale)
bd2$notas_mat <- ave(bd2$notas_mat, bd2$serie, FUN=scale)

library(corrr)
## Loading required package: dplyr
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
d <- correlate(bd2[ , 60:85], use="pair")
d %>% shave() %>% fashion()
##       rowname  A_0  C_0  E_0  N_0  O_0  A_1  C_1  E_1  N_1  O_1 insmot
## 1         A_0                                                         
## 2         C_0  .35                                                    
## 3         E_0  .31  .21                                               
## 4         N_0  .20  .09  .18                                          
## 5         O_0  .43  .28  .32  .13                                     
## 6         A_1  .47  .12  .32  .06  .33                                
## 7         C_1  .45  .74  .26  .11  .44  .52                           
## 8         E_1  .16  .16  .26 -.12  .41  .41  .31                      
## 9         N_1  .25  .20  .10  .57  .25  .27  .36  .23                 
## 10        O_1  .36  .39  .25  .21  .49  .49  .57  .43  .41            
## 11     insmot  .25  .21 -.06 -.02  .24  .12  .32  .19  .08  .19       
## 12     cstrat  .37  .48  .22 -.09  .29  .24  .49  .18  .13  .35    .36
## 13      memor  .21  .50  .19  .09  .21  .28  .49  .15  .20  .40    .35
## 14       elab  .25  .47  .21  .00  .37  .22  .47  .26  .25  .37    .47
## 15     effper  .38  .52  .17  .02  .36  .34  .63  .32  .25  .40    .47
## 16     selfef  .29  .45  .24  .03  .39  .24  .55  .15  .22  .33    .48
## 17       cexp  .36  .32  .24  .07  .28  .32  .44  .23  .28  .30    .41
## 18     intrea  .40  .42  .29 -.03  .42  .27  .45  .19  .14  .34    .09
## 19     intmat  .24  .49  .17  .09  .15  .24  .56  .03  .25  .25    .34
## 20     comlrn -.15  .13  .04 -.14  .01  .22  .23  .15  .04  .19   -.11
## 21     coplrn  .25  .23  .26 -.11  .28  .27  .28  .18 -.09  .22    .23
## 22     scverb  .21  .45  .21  .16  .23  .18  .37  .05  .13  .40    .13
## 23     scmath  .18  .43  .18  .00  .11  .07  .47 -.06  .03  .08    .37
## 24     scacad  .23  .52  .18  .00  .14  .13  .45  .13  .13  .36    .40
## 25 notas_port -.01  .19  .30  .17  .19 -.06  .18  .12  .04  .03    .17
## 26  notas_mat  .25  .30  .30  .08  .32  .20  .28  .08  .12  .25    .20
##    cstrat memor elab effper selfef cexp intrea intmat comlrn coplrn scverb
## 1                                                                         
## 2                                                                         
## 3                                                                         
## 4                                                                         
## 5                                                                         
## 6                                                                         
## 7                                                                         
## 8                                                                         
## 9                                                                         
## 10                                                                        
## 11                                                                        
## 12                                                                        
## 13    .58                                                                 
## 14    .65   .67                                                           
## 15    .65   .51  .60                                                      
## 16    .58   .57  .46    .67                                               
## 17    .52   .56  .52    .55    .64                                        
## 18    .48   .34  .31    .33    .44  .35                                   
## 19    .36   .49  .39    .53    .56  .36    .31                            
## 20    .19   .07  .15    .06    .16  .01    .16    .22                     
## 21    .17   .35  .27    .35    .36  .31    .31    .39    .01              
## 22    .32   .35  .18    .26    .44  .39    .36    .24    .07    .20       
## 23    .33   .42  .35    .46    .52  .35    .14    .73    .09    .22    .15
## 24    .47   .48  .42    .52    .59  .49    .39    .57   -.01    .43    .43
## 25    .15   .23  .09    .29    .34  .17    .02    .29   -.20    .04    .20
## 26    .20   .16  .14    .22    .34  .30    .23    .22   -.15    .13    .46
##    scmath scacad notas_port notas_mat
## 1                                    
## 2                                    
## 3                                    
## 4                                    
## 5                                    
## 6                                    
## 7                                    
## 8                                    
## 9                                    
## 10                                   
## 11                                   
## 12                                   
## 13                                   
## 14                                   
## 15                                   
## 16                                   
## 17                                   
## 18                                   
## 19                                   
## 20                                   
## 21                                   
## 22                                   
## 23                                   
## 24    .40                            
## 25    .57    .26                     
## 26    .29    .44        .48
network_plot(d, min_cor = .30)