성적표 만들기

성적표

상위 20% 커트라인

student = c('길동', '유신', '심청', '감찬', '성계')

길동

subject = c('kor', 'eng', 'math', 'sci', 'sco')
score = c(75,80,92,77,90)
subject_mean = c(68.4,75.1,63.5,76.2,80.3)
subject_sd = c(4.9,11.2,9.8,5.2,8.5)
# 확률면적 상위 20%지점 점수
x <- qnorm(
  (1 - 0.2), # 상위 20%지점 점수
  mean = 68.4, # 구하고자 하는 과목의 평균값
  sd = 4.9 # 해당과목의 표준편차
)
x

var.score <- data.frame(
  과목 = subject <- c('kor', 'eng', 'math', 'sci', 'soc'),
  점수 = score <- c(75,80,92,77,90),
  과목별평균 = subject_mean <- c(68.4,75.1,63.5,76.2,80.3),
  표준편차 = subject_sd <- c(4.9,11.2,9.8,5.2,8.5),
  stringsAsFactors = F # 과목명이 factor로 변하는 것을 막음
)

20% 이내 여부 체크

[행, 열 (지정 안하면 모든행, 열)]

var.score[,'상위20']  <- round(qnorm(
  (1 - 0.2), 
  mean = var.score$과목별평균, 
  sd = var.score$표준편차
),2)

상위 20% 패스여부 판단

var.score[var.score$점수 < var.score$상위20,
          '패스'] = "실패"
var.score[var.score$점수 >= var.score$상위20, 
          '패스'] = "성공"
View(var.score)

var.score <- subset(var.score, select = -c(stringsAsFactors))
View(var.score)

유신의 성적표 / 점수 랜덤으로 설정 runif()

yusin <- round(runif(5, 40, 100),0)
yusin