인류의 복지와 편익을 위한 인프라 건설을 주도하는토목공학과
제목
2학년_빅데이터마이닝 중간고사 대비 (박영훈 교수)
작성일
2022.10.05
작성자
부천대학교 토목과
# sample coding 및 예상문제 (첨부파일) #1. 주성분분석 ranking=read.csv("company.csv") head(ranking) ranking$불량률=with(ranking, max(불량률)-불량률) head(ranking) ranking=ranking[,-1] head(ranking) install.packages("psych") library(psych) pairs.panels(ranking) h_pca=prcomp(ranking[,1:4], scale=TRUE) summary(h_pca) plot(h_pca, type='l') plot(h_pca$x[,1],ranking$최종평가) cor(ranking$최종평가,h_pca$x[,1]) biplot(h_pca, choices=c(1,2)) #2. 탐색적 인자 분석 data(attitude) score=attitude head(score) score_1=score[,-1] head(score_1) fa1=factanal(score_1,3) print(fa1,digits=2,sort=T) install.packages("psych") library(psych) install.packages("GPArotation") library(GPArotation) fa2=factanal(score_1, 3, rotation = "none") print(fa2, digits=2, sort=T) fa2_d=fa(score_1, nfactors=3, n.obs=N, rotate="none") fa.diagram(fa2_d) #3. 군집 분석 ranking=read.csv("company.csv") head(ranking) ranking_1=ranking[,-1] head(ranking_1) hc1=hclust(dist(ranking_1,method="euclidean"),method="complete") plot(hc1) hc2=hclust(dist(ranking_1,method="euclidean"),method="single") plot(hc2) install.packages("mclust") library(mclust) mc=Mclust(ranking_1) summary(mc) plot(mc)