R Notebook

성적표 정형화 작업

id <- c(1:10)
class <- c(1,1,1,1,1,2,2,2,2,2)
math <- c(50,60,45,30,23,50,30,25,50,50)
english <- c(98,97,86,98,80,89,30,25,50,50)
science <- c(50,60,78,58,65,98,30,25,50,50)

df.score <- data.frame(id,class,math,english,science)
#전체 학생 점수 보기
df.score
# n번째 row 까지만 보여주기 head(df.n) 함수 p.101
head(df.score, 8)

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

# 뷰어창에서 df 확인 View(df) *View의 V는 대문자
View(df.score)

# df , row count, col count // 디멘션은 쓰지 말고 보통 스트럭쳐 씀
dim(df.score)

# str() structure 를 나타내는 함수
str(df.score)

# summary() 요약
summary(df.score)


# df.score <- difly::rename( df.score, id=uid)    

#df.score %>%  #파이프라인
#  data.table::setnames(

#  )
library(dplyr)

df.score %>% 
  data.table::setnames(
    old = "id",
    new = "아이디"
  )
df.score
df.score$총점 <- df.score$math + df.score$english + df.score$science
df.score$평균 <- df.score$총점 / 3
df.score

hist(df.score$총점) #p.116

#ifelse()

df.score$합격여부 <- ifelse(df.score$평균>=50, "합격", "불합격")

df.score$등급 <- ifelse(df.score$평균>=50,
                      "A",
                      ifelse(df.score$평균>=30,
                             "B",
                             "C"))


# table()
library(ggplot2)
ggplot2::qplot(df.score$합격여부)