National %>% arrange(Province, Phase_PED) %>% filter(Sector == "PUBLIC" | Sector == "Public") %>% select(c(Province, Official_Institution_Name, Phase_PED, Quintile, NoFeeSchool, Learners2022, Educators2022)) -> National2
National %>% arrange(Province, Phase_PED) %>% filter(Sector == "PUBLIC" | Sector == "Public") %>% select(c(Province, Official_Institution_Name, Phase_PED, Quintile, NoFeeSchool, Learners2022, Educators2022)) -> National2