d <- read.table("http://commres.net/wiki/_media/r/personality0.txt")

살펴보기 (head)
구조및성질 (str)
상관관계 도식화 (corrplot)

• require corrplot package

install.packages("corrplot") # if not installed
library(corrplot)
corrplot(cor(d), order = "hclust", tl.col='black', tl.cex=.75)

fa 펑션 factor analysis

library(psych)
d.fa <- fa(d, rotate="none") # fa test with no rotation
names(d.fa) # to see what comes with the output d.fa

check out the output.

d.fa

compare the output to d.fa$communality

d.fa$communality

for better output

data.frame(d.fa$communality)

d.fa 아웃풋처럼 round 처리

round(data.frame(d.fa$communality),3)

check out the uniqueness too