huh

JANI %>%
  
  ggplot(aes(x = `Contact hours` , y = Students, group = 10 ) )+
  geom_bar(stat = "identity")

## Warning: Removed 374 rows containing missing values (position_stack).

JANI %>%
  filter(Students>=60) %>%
  ggplot(aes(x = School , y = Students, group = 10 ) )+
  geom_bar(stat ="identity") + scale_x_discrete(guide = guide_axis(n.dodge = 2))