[R-br] Analise Fatorial - Componentes Principais

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

[R-br] Analise Fatorial - Componentes Principais

R-br mailing list
Boa Tarde!

Preciso de uma ajuda na Análise Fatorial, estou tentando salvar os scores dos fatores para colocar no aquirvo que estou trabalhando, mas não está rolando,
estou comparando com outra ferramenta estatística SPSS e os valores são diferentes, somente os scores. Estou tentando salvar pelo método de regression.



# AF pelo método componentes principais

library(readxl)
Olimpiadas <- read_excel("C:/Users/edmar/Desktop/FIAP Atualização BDT/Data Mining/Olimpiadas.xlsx")
View(Olimpiadas)
dim(Olimpiadas)
CP <-Olimpiadas[,-11]
CP
dim(CP)

View(CP)

#Pedir as estatisticas descritivas e a matriz de correlação.

cor(CP)
sapply(CP,summary)
sapply(CP,sd)

# AF package psych
install.packages("psych")
library(psych)


# kmo
KMO(CP)


# teste de esfericidade de Bartlett
cortest.bartlett(CP)


install.packages("GPArotation") 
library(GPArotation)


# Tabela de variancia total explicad do spss pelos componentes principais
fit <-princomp(CP, cor=TRUE)
fit
summary(fit)



# Grafico scrren plot
loadings(fit)
plot(fit,type="lines")


# extrair os fatores sem rotação - component matrix spss
fit <-principal(CP,nfactors = 2, rotate = "none", scores = TRUE)
fit


# rotated componetn matrix spss 
fit <-principal(CP,nfactors=2,rotate="varimax",scores = TRUE, method = "regression")# EXTRAÇÃO PELO METODO VARIMAX.
print(fit,digits = 3,cutoff=.0,sort = TRUE)


#comunalidades
fit$communality

#Grafico componentes espaço rotacionado
plot(load, type = "n")
text(load, labels = names(CP),cex = .7)#nome nas variaveis
abline(h=0)
abline(v=0)


Agora salvar os scores no arquivo não estou conseguindo. Os demais resultados batem todos.

estou tentando: Mas sai diferente do SPSS?
Tem algum segredo aqui?????

> fit$scores
              RC1          RC2
 [1,] -0.42227707  0.967455985
 [2,] -1.08912141  0.462360637
 [3,] -0.86924034  0.225857490
 [4,] -0.53780514  0.919581430
 [5,] -1.63914712 -0.616829273
 [6,] -1.44129573 -0.088363255
 [7,] -0.15298741  0.849870177
 [8,] -0.73360090  0.216111850
 [9,] -0.38707353  0.452628647
[10,]  0.06303505  1.118762527
[11,]  0.01554309  1.128912314
[12,] -0.54253297  0.038456484
[13,] -1.24977051 -0.689280878
[14,] -0.83306807  0.006922647
[15,] -0.48684252  0.033011053
[16,] -0.25825680  0.210099942
[17,]  2.08127102  2.190927462
[18,]  0.86484820  1.186320909
[19,] -0.82669302 -0.930504761
[20,]  0.27811485  0.665010689
[21,]  0.22335228 -0.092869066
[22,]  0.20287071 -0.206901381
[23,]  0.36309453  0.240739372
[24,]  0.12631659 -0.329892015
[25,] -0.17699769 -0.401440678
[26,] -0.37557882 -1.074277378
[27,] -0.60432737 -1.290110113
[28,]  1.44661663  0.853691289
[29,] -0.16292001 -1.175375590
[30,]  0.78399429 -0.250845135
[31,]  1.92828660  0.654161779
[32,]  1.13276765 -0.405341447
[33,]  0.51556035 -1.656032055
[34,]  2.76386458 -3.212819656










Edmar

_______________________________________________
R-br mailing list
[hidden email]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.
Reply | Threaded
Open this post in threaded view
|

Re: [R-br] Analise Fatorial - Componentes Principais

R-br mailing list
Tem o dataset para rodar?
 
Boa Tarde!
 
Preciso de uma ajuda na Análise Fatorial, estou tentando salvar os scores dos fatores para colocar no aquirvo que estou trabalhando, mas não está rolando,
estou comparando com outra ferramenta estatística SPSS e os valores são diferentes, somente os scores. Estou tentando salvar pelo método de regression.
 
 
 
# AF pelo método componentes principais
 
library(readxl)
Olimpiadas <- read_excel("C:/Users/edmar/Desktop/FIAP Atualização BDT/Data Mining/Olimpiadas.xlsx")
View(Olimpiadas)
dim(Olimpiadas)
CP <-Olimpiadas[,-11]
CP
dim(CP)
 
View(CP)
 
#Pedir as estatisticas descritivas e a matriz de correlação.
 
cor(CP)
sapply(CP,summary)
sapply(CP,sd)
 
# AF package psych
install.packages("psych")
library(psych)
 
 
# kmo
KMO(CP)
 
 
# teste de esfericidade de Bartlett
cortest.bartlett(CP)
 
 
install.packages("GPArotation") 
library(GPArotation)
 
 
# Tabela de variancia total explicad do spss pelos componentes principais
fit <-princomp(CP, cor=TRUE)
fit
summary(fit)
 
 
 
# Grafico scrren plot
loadings(fit)
plot(fit,type="lines")
 
 
# extrair os fatores sem rotação - component matrix spss
fit <-principal(CP,nfactors = 2, rotate = "none", scores = TRUE)
fit
 
 
# rotated componetn matrix spss 
fit <-principal(CP,nfactors=2,rotate="varimax",scores = TRUE, method = "regression")# EXTRAÇÃO PELO METODO VARIMAX.
print(fit,digits = 3,cutoff=.0,sort = TRUE)
 
 
#comunalidades
fit$communality
 
#Grafico componentes espaço rotacionado
plot(load, type = "n")
text(load, labels = names(CP),cex = .7)#nome nas variaveis
abline(h=0)
abline(v=0)
 
 
Agora salvar os scores no arquivo não estou conseguindo. Os demais resultados batem todos.
 
estou tentando: Mas sai diferente do SPSS?
Tem algum segredo aqui?????
 
> fit$scores
              RC1          RC2
 [1,] -0.42227707  0.967455985
 [2,] -1.08912141  0.462360637
 [3,] -0.86924034  0.225857490
 [4,] -0.53780514  0.919581430
 [5,] -1.63914712 -0.616829273
 [6,] -1.44129573 -0.088363255
 [7,] -0.15298741  0.849870177
 [8,] -0.73360090  0.216111850
 [9,] -0.38707353  0.452628647
[10,]  0.06303505  1.118762527
[11,]  0.01554309  1.128912314
[12,] -0.54253297  0.038456484
[13,] -1.24977051 -0.689280878
[14,] -0.83306807  0.006922647
[15,] -0.48684252  0.033011053
[16,] -0.25825680  0.210099942
[17,]  2.08127102  2.190927462
[18,]  0.86484820  1.186320909
[19,] -0.82669302 -0.930504761
[20,]  0.27811485  0.665010689
[21,]  0.22335228 -0.092869066
[22,]  0.20287071 -0.206901381
[23,]  0.36309453  0.240739372
[24,]  0.12631659 -0.329892015
[25,] -0.17699769 -0.401440678
[26,] -0.37557882 -1.074277378
[27,] -0.60432737 -1.290110113
[28,]  1.44661663  0.853691289
[29,] -0.16292001 -1.175375590
[30,]  0.78399429 -0.250845135
[31,]  1.92828660  0.654161779
[32,]  1.13276765 -0.405341447
[33,]  0.51556035 -1.656032055
[34,]  2.76386458 -3.212819656
 
 
 
 
 
 
Edmar
_______________________________________________
R-br mailing list
[hidden email]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.

_______________________________________________
R-br mailing list
[hidden email]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.
Reply | Threaded
Open this post in threaded view
|

[R-br] Assunto: Re: Analise Fatorial - Componentes Principais

R-br mailing list
Boa Noite!
Ja consegui resolver. O codigo esta certo e o resultado tambem. Estava comparando com outro resultado. Peco desculpa erro foi meu. 


<div>Em Ter, 31 31e jul 31e 2018 às 19:16, [hidden email]</div><div><[hidden email]> escreveu:</div>
Tem o dataset para rodar?
 
Boa Tarde!
 
Preciso de uma ajuda na Análise Fatorial, estou tentando salvar os scores dos fatores para colocar no aquirvo que estou trabalhando, mas não está rolando,
estou comparando com outra ferramenta estatística SPSS e os valores são diferentes, somente os scores. Estou tentando salvar pelo método de regression.
 
 
 
# AF pelo método componentes principais
 
library(readxl)
Olimpiadas <- read_excel("C:/Users/edmar/Desktop/FIAP Atualização BDT/Data Mining/Olimpiadas.xlsx")
View(Olimpiadas)
dim(Olimpiadas)
CP <-Olimpiadas[,-11]
CP
dim(CP)
 
View(CP)
 
#Pedir as estatisticas descritivas e a matriz de correlação.
 
cor(CP)
sapply(CP,summary)
sapply(CP,sd)
 
# AF package psych
install.packages("psych")
library(psych)
 
 
# kmo
KMO(CP)
 
 
# teste de esfericidade de Bartlett
cortest.bartlett(CP)
 
 
install.packages("GPArotation") 
library(GPArotation)
 
 
# Tabela de variancia total explicad do spss pelos componentes principais
fit <-princomp(CP, cor=TRUE)
fit
summary(fit)
 
 
 
# Grafico scrren plot
loadings(fit)
plot(fit,type="lines")
 
 
# extrair os fatores sem rotação - component matrix spss
fit <-principal(CP,nfactors = 2, rotate = "none", scores = TRUE)
fit
 
 
# rotated componetn matrix spss 
fit <-principal(CP,nfactors=2,rotate="varimax",scores = TRUE, method = "regression")# EXTRAÇÃO PELO METODO VARIMAX.
print(fit,digits = 3,cutoff=.0,sort = TRUE)
 
 
#comunalidades
fit$communality
 
#Grafico componentes espaço rotacionado
plot(load, type = "n")
text(load, labels = names(CP),cex = .7)#nome nas variaveis
abline(h=0)
abline(v=0)
 
 
Agora salvar os scores no arquivo não estou conseguindo. Os demais resultados batem todos.
 
estou tentando: Mas sai diferente do SPSS?
Tem algum segredo aqui?????
 
> fit$scores
              RC1          RC2
 [1,] -0.42227707  0.967455985
 [2,] -1.08912141  0.462360637
 [3,] -0.86924034  0.225857490
 [4,] -0.53780514  0.919581430
 [5,] -1.63914712 -0.616829273
 [6,] -1.44129573 -0.088363255
 [7,] -0.15298741  0.849870177
 [8,] -0.73360090  0.216111850
 [9,] -0.38707353  0.452628647
[10,]  0.06303505  1.118762527
[11,]  0.01554309  1.128912314
[12,] -0.54253297  0.038456484
[13,] -1.24977051 -0.689280878
[14,] -0.83306807  0.006922647
[15,] -0.48684252  0.033011053
[16,] -0.25825680  0.210099942
[17,]  2.08127102  2.190927462
[18,]  0.86484820  1.186320909
[19,] -0.82669302 -0.930504761
[20,]  0.27811485  0.665010689
[21,]  0.22335228 -0.092869066
[22,]  0.20287071 -0.206901381
[23,]  0.36309453  0.240739372
[24,]  0.12631659 -0.329892015
[25,] -0.17699769 -0.401440678
[26,] -0.37557882 -1.074277378
[27,] -0.60432737 -1.290110113
[28,]  1.44661663  0.853691289
[29,] -0.16292001 -1.175375590
[30,]  0.78399429 -0.250845135
[31,]  1.92828660  0.654161779
[32,]  1.13276765 -0.405341447
[33,]  0.51556035 -1.656032055
[34,]  2.76386458 -3.212819656
 
 
 
 
 
 
Edmar
_______________________________________________
R-br mailing list
[hidden email]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.

_______________________________________________
R-br mailing list
[hidden email]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.