[실습] (4-2) 다중 회귀 with R

#이동통신사 고객충성도 회귀분석

 

mobile =read.csv("mobileSurvey.csv")
summary(mobile)
table(mobile$gender)
table(mobile$company)

summary 결과 출력

테이블로 원하는 결과 요약

# 전체 변수와 회귀분석해 P value 0.05 이하 (유의변수)만 선별
mobile.reg =lm(loyalty ~ . -no -company, data=mobile)
summary(mobile.reg)

summary 결과 : 0.05 이하인 성별, 비용, 멤버십, 브랜드, 디바이스 = 유의

mobile.reg2 =lm(loyalty ~ . -no -company -gender -quality, data=mobile)

 

# 각 이동통신사 고객충성도

#이동통신사 별 데이터 프레임
mobile$no = NULL
mobile.kt = subset(mobile, company=="KT")
mobile.lg = subset(mobile, company=="LGU+")
mobile.skt = subset(mobile, company=="SKT")

#KT 가입자 분석
mobile.kt$company = NULL
mobile.reg.kt = lm(loyalty ~ ., data=mobile.kt)
summary(mobile.reg.kt)
mobile.reg.kt2 = lm(loyalty ~ . -gender -quality, data=mobile.kt)

summary(mobile.reg.kt) 결과 출력 : 유의한 변수 movile.reg.kt2로 회귀분석

#LGU+ 가입자 분석
mobile.lg$company = NULL
mobile.reg.lg = lm(loyalty ~ ., data=mobile.lg)
summary(mobile.reg.lg)
mobile.reg.lg2 = lm(loyalty ~ . -gender -quality -device, data=mobile.lg)

summary(mobile.reg.lg) 결과 출력 : 유의한 변수 movile.reg.lg2로 회귀분석

#SKT 가입자 분석
mobile.skt$company = NULL
mobile.reg.skt = lm(loyalty ~ ., data=mobile.skt)
summary(mobile.reg.skt)
mobile.reg.skt2 = lm(loyalty ~ . -gender -device, data=mobile.skt)

summary(mobile.reg.skt) 결과 출력 : 유의한 변수 movile.reg.skt2로 회귀분석