R Notebook

성적표 정형화 작업

id <- c(1:10)
id
class <- c(1,1,1,1,1,2,2,2,2,2)
class
math <- c(50,60,45,30,25,50,30,25,50,50)
math
eng <- c(98,97,86,98,80,89,70,72,75,80)
eng
sci <- c(50,60,78,58,65,98,60,67,75,90)
sci
df.score <- data.frame(id, class, math, eng, sci)
df.score

# 전체 학생 점수 보기
df.score
# n번째 row 까지만 보여주기 head(df, n)
head(df.score, 8)

# 밑에서 n번째 row 까지만 보여주기 tail(df, n)
tail(df.score, 8)

# 뷰어창에서 df ghkrdls View(df) ※ View의  V는 대문자
View(df.score)

# df, row count, col count
dim(df.score)

# str() structure를 나타내는 함수 / 변수들의 속성
str(df.score)

# summary() 요약 통계량 산출
summary(df.score)

library(dplyr)
library(data.table)
  # df.score <- dplyr::rename(df.score, id='아이디') 
  df.score %>%  #ctrl+shift+m: 파이프라인(연산자)
    data.table :: setnames(
          old = "id",
          new = "아이디"
    )
  df.score
df.score$total <- df.score$math+df.score$eng+df.score$sci
df.score  
  
df.score$mean <- df.score$total/3  
df.score

df.score %>% 
  data.table :: setnames(
    old = "total",
    new = "합계"
  )

### histogram 작성
hist(df.score$합계)
# ifelse()
df.score$test <- ifelse(df.score$mean >70,"pass","fail")
df.score

### 빈도표 작성
table(df.score$test)

### ggplot2 내 qplot 사용하여 빈도수 표 그리기
library(ggplot2)
ggplot2 :: qplot(df.score$test)

### 중첩 조건문
df.score$grade <- ifelse(df.score$mean >= 70, 
                         "A", 
                         ifelse(df.score$mean >= 60, "B","C"))
table(df.score$grade)

library(ggplot2)
ggplot2 :: qplot(df.score$grade)