[코딩] Circle Square

1. 내장함수

seq(0, 5, by =1.5) # 0~5 사이, 간격 1.5
# 0.0 1.5 3.0 4.5
set.seed(123) # 난수 발생기에 대한 seed 지정.
#seed에 설정값이 같을 경우 다른 사용자와 같은 동일한 난수 출력
aa <- rnorm(1000, mean = 0, sd = 1) # 1000개의 난수 발생, mean : 평균값, sd : 표준 편차
mean(aa) # 0.01612787
hist(aa) # 히스토그램

vv <- 1:10
mean(vv) # 평균 - 5.5
var(vv)  # 분산 - 9.166667
sd(vv)   # 표준 편차 - 3.02765

2. 사용자 정의 함수

func1 <- function(){
  print('함수 출력')
}
func1()

triFunc <- function(a,h){
  re = a * h /2
  cat('삼각형의 넓이 : ', re)
}
triFunc(5,4)

#2-9 구구단
gugu_func <- function(dan){
  for(d in dan){
    for(i in 1:9){
      cat(d,'*', i, '=', d*i, '\t')
    }
    cat('\n')
      #aa <- 하지말고 a=10
  }
}
gugu_func(3)
gugu_func(c(3:6))

3 시각화

 - 막대 그래프

stu <- read.csv("testdata/ex_studentlist.csv")
head(stu,3)

barplot(stu$grade) # 막대 그래프
barplot(stu$grade, ylim = c(-1,5), col = rainbow(3), main = '제목')
# ylim : y축 범위, col : 막대 색, main : 제목
barplot(stu$grade, main = '제목', xlab='학년', ylab='학생', hori=T)
# xlab : x축 라벨, hori : 가로 막대그래프

 - 점 차트

dotchart(stu$grade) # 점차트

 - na.omit()

str(stu)
dim(stu) # 15  8
df <- na.omit(stu) # na가 들어간 행 제거
str(df)
dim(df) # 14  8

 - 파이차트

pie(df$age, labels = df$age, lty = 5) # 파이 차트. 데이터양이 적을 경우 사용(범주형 데이터), lty : 라인 스타일

mean(stu$height)                 # 평균
median(stu$height)               # 중간값
quantile(stu$height)             # 수치형 데이터의 분포
# 0%    25%    50%    75%   100% 
# 155.20 167.55 175.30 177.55 188.00

 - 상자그림

boxplot(stu$height, range = 0) # 상자 그림
boxplot(stu$height, range = 1)
boxplot(stu$height, range = 1, notch = T) # 중앙값
abline(h= 170,col='blue', lty=5) # 선그리기