Full Project : BIU Student Dataset

Students Dataset

students <- data.frame(
  Name = c("Ali", "Maryan", "Ahmed", "Khadra", "Layla", "Hassan"),
  Gender = c("M", "F", "M", "F", "F", "M"),
  Score = c(80, 90, 70, 85, 88, 75),
  Age = c(20, 21, 22, 21, 20, 22)
)

we will print and also calculate descriptive statistics related the sample dataset

summary(students)

##      Name              Gender              Score            Age       
##  Length:6           Length:6           Min.   :70.00   Min.   :20.00  
##  Class :character   Class :character   1st Qu.:76.25   1st Qu.:20.25  
##  Mode  :character   Mode  :character   Median :82.50   Median :21.00  
##                                        Mean   :81.33   Mean   :21.00  
##                                        3rd Qu.:87.25   3rd Qu.:21.75  
##                                        Max.   :90.00   Max.   :22.00

Before we creating the diffferent charts, we will loading GGPLOT2

library(ggplot2)

Firstly, Barchart

ggplot(students, aes(x = Gender)) +
  geom_bar(fill = "steelblue") +
  labs(title = "Number of Students by Gender",
          x = "Gender", y = "Count")

Thirdly, Scatterplot

ggplot(students, aes(x = Age, y = Score, color = Gender)) +
  geom_point(size = 3) +
  labs(title = "Age vs Score", x = "Age", y = "Score")