in-class10

1 Installing and Launching R Packages

packages = c('tidyverse','ggExtra', 'ggridges')

for(p in packages){
  if(!require(p, character.only = T)){
    install.packages(p)
  }
  library(p, character.only = T)
}

2 Importing Data

exam_data <- read_csv("data/Exam_data.csv")

3 Working with ggMarginal in the ggExtra package

scatter_exam <- ggplot(data=exam_data,
       aes(x=MATHS, y=ENGLISH))+
  geom_point()+
  geom_vline(aes(xintercept = 50), linetype="longdash", size=1)+
  geom_hline(aes(yintercept = 50), linetype="longdash", size=1)+
  coord_cartesian(xlim=c(0,100),
                  ylim=c(0,100))

ggMarginal(scatter_exam, type = "histogram", col="blue", fill = "lightblue")

4 Working with geom_density_ridges in the ggridges package

ggplot(data=exam_data,
       aes(x=MATHS, y=CLASS))+
  geom_density_ridges()

## Picking joint bandwidth of 3.63