# 연산자
# 산술 : +, -, *, /, %%, ^, **
# 관계 : ==, !=, >, >=, <, <=
# 논리 : &, |, !, xor()
no <- 7
no >= 2 # TRUE
no >= 2 + 2 * 2 | no < 5 %% 2 # 연산자 우선순위는 파이썬과 같다.
no >= 5 & no <= 10 # TRUE
no != 6
# 제어문 : 조건 판단문 - if, switch, which
# 1) if() 함수
x <- 10; y <- 5
if(x + y >= 10){ # 방법 1 - 자바와 같음
cat('결과는 ', x+y)
cat('\n참일 때 수행')
}else{
print('거짓일 때 수행')
a = 10
}
# 결과는 15
# 참일 때 수행
# 2) ifelse(조건, 참, 거짓)
ifelse(x > 5, 'good', 'bad') # 방법 2 - R에서의 if문
# mpg dataset을 사용
install.packages('ggplot2')
library(ggplot2)
head(mpg, 3)
head(iris, 3)
mpg <- as.data.frame(ggplot2::mpg) # data.frame함수로 표로 제작
head(mpg, 3) # 앞에거 3개 호출
dim(mpg)
str(mpg)
summary(mpg) # 요약정보를 확인할 수 있다.
# 새로운 칼럼(변수)
mpg$total <- (mpg$cty + mpg$hwy) / 2 # total이라는 칼럼을 추가
head(mpg, 3)
if(mean(mpg$total) >= 20){
print('우수연비')
}else{
print('일반연비')
}
summary(mpg$total) # 평균값 요약정보 호출
hist(mpg$total) # 그래프 출력
mpg$test <- ifelse(mpg$total >= 20, 'pass', 'fail')
head(mpg, 3)
tail(mpg, 3)
table(mpg$test) # fail pass 106 128 갯수를 구할 수 있다.
mpg$grade <- ifelse(mpg$total >= 30, 'A', ifelse(mpg$total >= 20, 'B', "C"))
head(mpg, 3)
qplot(mpg$grade) # 그래프 출력
qplot(data = mpg, x = grade) # 범주형 데이터