Part 6 Data footnote

The raw data is downloaded in csv format and manipulated in the following way:

raw_student_data <- read_csv("eandd-official-statistics-csv.csv")

raw_student_data<- raw_student_data %>% 
  mutate(year= as.numeric(substr(Year, 1,4))) %>% 
  filter(year>=2017, 
         Coverage== "All students, 2017-18 onwards",
         Population== "All students")