세미프로젝트02 상관분석

3. 병원 수와 노인 인구 비율 상관분석

str(total) plot(total$count, total$pop_old_be, xlab="병원 수", ylab="노인인구 수") cor(total$count,total$pop_old_be) #cor -0.5877963 음의 상관관계

[이상치] 하나 발견(=서울 강남구) y축에서 중위값이고, true random variation이 아니라는 증거가 없으므로 제거하지 않는다.

병원 수와 노인 인구 비율 단순회귀분석

old = lm(formula = count ~ pop_old_be, total) summary(old)

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 797.323 43.216 18.45 <2e-16 ***
pop_old_be -21.818 1.866 -11.69 <2e-16 ***
Residual standard error: 257.9 on 259 degrees of freedom
Multiple R-squared: 0.3455, Adjusted R-squared: 0.343
F-statistic: 136.7 on 1 and 259 DF, p-value: < 2.2e-16





4. 추가분석
그렇다면 영유아 비율은 병원 수와 관련이 있을까?

plot(total$count, total$pop_child_be, xlab="병원 수", ylab="영유아인구 수") cor(total$count,total$pop_child_be) #cor 0.3487594 양의 상관관계

병원 수와 영유아 인구 비율 단순회귀분석

child = lm(formula = count ~ pop_child_be, total) summary(child)

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -86.199 71.553 -1.205 0.229
pop_child_be 45.140 7.537 5.989 7.03e-09 ***
Residual standard error: 298.8 on 259 degrees of freedom
Multiple R-squared: 0.1216, Adjusted R-squared: 0.1182
F-statistic: 35.87 on 1 and 259 DF, p-value: 7.032e-09





병원 수와 비노인 인구 상관분석

cor(total$count,total$pop_be) #cor 0.6180532 양의 상관관계 plot(total$count, total$pop_be, xlab="병원 수", ylab="비 노인인구 수")

병원 수와 비노인,비영유아 인구 단순회귀분석

peo = lm(formula = count ~ pop_be, total) summary(peo)

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -1686.939 159.986 -10.54 <2e-16 ***
pop_be 29.069 2.297 12.65 <2e-16 ***
Residual standard error: 250.6 on 259 degrees of freedom
Multiple R-squared: 0.382, Adjusted R-squared: 0.3796
F-statistic: 160.1 on 1 and 259 DF, p-value: < 2.2e-16