R 10일차

조건문을 활용해 파생변수 만들기

1. 기준값 정하기

summary(mpg$total)

hist(mpg$total)

hist를 이용하면 히스토그램을 그릴 수 있다.

mpg$test <- ifelse(mpg$total >=20, "pass", "fail")

# 20이상이면 pass, 그렇지 않으면 fail부여

head(mpg, 20)

2. 빈도표로 합격 판정 자동차 수 살펴보기

   table(mpg$test) # 연비 합격 빈도표 생성

3. 막대 그래프로 빈도 표현하기

library(ggplot2) #ggplot2 로드
qqplot(mpg$test) #연비 합격 빈도 막대 그래프 생성

중첩 조건문 활용하기

1. 연비에 따라 세가지 종류의 등급을 부여해 grade 변수를 생성

mpg$grade <- ifelse(mpg$total >= 30, "A", ifelse(mpg$total>=20,"B","C"))

head(mpg, 20)

2. 빈도표, 막대 그래프로 연비 등급 보기

table(mpg$grade) # 등급 빈도표 생성

qplot(mpg$grade) # 등급 빈도 막대 그래프 생성

3. 원하는 만큼 범주 만들기

mpg$grade2 <- ifelse(mpg$total >= 30, "A",
		    ifelse(mpg$total >= 25,"B",
            	      ifelse(mpg$total>=20, "C","D)))