Students score in kakamega primary school

##A summary of students score in Kakamega primary school.
#Create data frame exam scores
exam_score <-  data.frame(
  student_data <- c(001, 002, 003, 004),
  student_score <- c(43.00, 54.00, 56.00, 47.00)
)
#print the summary of the students
summary(exam_score$student_score)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    43.0    46.0    50.5    50.0    54.5    56.0

#plot the box
barplot(exam_score$student_score,
        names.arg = exam_score$student_data,
        col = "lightblue",
        border = "black",
        main = "Exam Scores per Student",
        xlab = "Student ID",
        ylab = "Exam Score")