요인분석 2

 

PIT2.xlsx

0.06MB

 

 

library(readxl)
library(psych)

# 엑셀 파일 불러오기
data <- read_excel("d:/mydata/PIT2.xlsx")

# 분석할 변수 선택
df <- data[, c("Con%", "OZS%", "타구속도", "POP%", "GB%")]

# 요인 분석 (요인 점수까지 포함)
fa_result <- fa(df, nfactors = 3, rotate = "varimax", fm = "ml", scores = "regression")

# 1. 요인 적재값 출력
print(fa_result$loadings)

# 2. 공통성
print(fa_result$communality)

# 3. 특유성 (Uniqueness)
print(fa_result$uniquenesses)

# 4. 요인 점수 확인
head(fa_result$scores)  # 각 행(사람)의 Factor1, Factor2 점수

# 5. 요약 출력
print(fa_result)