R Notebook

성적표 정형화

vec.name <- c("김지훈 ", "이유진 ", "박동현 ","김민지 ")
#vec.name <- c("a ", "b ", "c ","d ")
vec.name
vec.english <- c(90 , 80 , 60 , 70)
vec.english
vec.math <- c(50,60,100,20)
vec.math
vec.class <- c(1,1,2,2)
df_score <- data.frame(vec.name,vec.english,vec.math,vec.class)
df_score

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,67,90,87,77)
math
english <- c(98,97,86,98,80,89,50,67,90,87)
english
science <- c(50,60,78,58,65,98,50,67,90,87)
science
df.exam <- data.frame(id,class,math ,english,science)
df.exam
#주석 :전체학생점수 보기 
df.exam
#n번째 row까지만 보여주기 head(df,n)(자주 사용됨)
head(df.exam,8)
#밑에서 n번째 row까지만 보여주기 tail(df,n)
tail(df.exam,8)
#뷰어창에서 df확인 View(df)* view의 v는 대문자이다.
View(df.exam)
#df, rowcount,col count
dim(df.exam)
#str()strucre를 나타내는 함수 (자주 사용됨) 
str(df.exam)
#summary() 요약
summary(df.exam)
#package
#install.packages("ggplot2") #전체 플젝으로 불러오느것 
#library(ggplot2)  #이 파일로 불로오는 것 
#df.mpg <- as.data.frame(ggplot2::mpg)
#df.mpgdf

df.exam %>%  #ctrl+shift+m 파이프라이
  data.table::setnames(
  )
if("dplyr" %in% installed.packages("dplyr") == FALSE)install.packages("dplyr")
library(dplyr)
df.exam %>%   #ctrl+shift+m 파이프라이
  data.table::setnames(
    old = "id",
    new="아이디 "
  )
df.exam

df.exam$total <- df.exam$math+df.exam$english+df.exam$science
df.exam 


df.exam$mean <- df.exam$total/3
df.exam 

hist(df.exam$total)
hist(df.exam$mean)
hist(df.exam$math)
#ifelse()
df.exam$test <- ifelse(df.exam$mean>=80, "합격","불합격")
df.exam