어느 집단에서 10명의 표본을 추출하여 다음과 같은 4개 문항에 대하여 설문조사를 실시했다.
문항 1: 귀하의 성별은? 1) 남자 2) 여자
문항 2: 귀하의 나이는? (단위: 세)
문항 3: 귀하의 교육 정도는? 1) 무학 2) 초등졸 3) 종졸 4) 고졸 5) 대졸
문항 4: 귀하의 월 수입은? (단위: 만 원)
설문조사를 실시하여 얻은 응답 데이터를 csv 파일로 저장하고 간단한 작업을 해보자.
> setwd('c:/Rwork')
> survey<-read.csv('설문조사 데이터.csv',header=T,sep=',')
> survey
일련번호 변수.1.성별. 변수.2.나이. 변수.3.교육정도. 변수.4.월.수입.
1 1 1 21 4 100
2 2 2 22 5 100
3 3 1 33 2 200
4 4 2 33 4 120
5 5 1 28 4 70
6 6 1 21 5 100
7 7 2 39 4 190
8 8 1 32 5 220
9 9 2 44 1 170
10 10 1 55 3 310
> summary(survey)
일련번호 변수.1.성별. 변수.2.나이. 변수.3.교육정도. 변수.4.월.수입.
Min. : 1.00 Min. :1.0 Min. :21.0 Min. :1.00 Min. : 70.0
1st Qu.: 3.25 1st Qu.:1.0 1st Qu.:23.5 1st Qu.:3.25 1st Qu.:100.0
Median : 5.50 Median :1.0 Median :32.5 Median :4.00 Median :145.0
Mean : 5.50 Mean :1.4 Mean :32.8 Mean :3.70 Mean :158.0
3rd Qu.: 7.75 3rd Qu.:2.0 3rd Qu.:37.5 3rd Qu.:4.75 3rd Qu.:197.5
Max. :10.00 Max. :2.0 Max. :55.0 Max. :5.00 Max. :310.0
> colnames(survey)<-c('변수','성별','나이','교육정도','월 수입')
> survey
변수 성별 나이 교육정도 월 수입
1 1 1 21 4 100
2 2 2 22 5 100
3 3 1 33 2 200
4 4 2 33 4 120
5 5 1 28 4 70
6 6 1 21 5 100
7 7 2 39 4 190
8 8 1 32 5 220
9 9 2 44 1 170
10 10 1 55 3 310
> plot(survey$나이, survey$`월 수입`)
> par(mfrow=c(1,2))
> plot(survey$나이, survey$`월 수입`,pch=20)
> plot(survey$나이, survey$`월 수입`,pch="+")
