Tutoring

R Markdown

#Most students enroll for quarter 4
tutor%>%
  ggplot(aes(x = Students_Enrolled, fill = Qtr)) +
  geom_bar()

#Quarter 4 makes the most money
tutor%>%
  ggplot(aes(x = Students_Enrolled, y = Total_Fees, fill=)) +
  geom_point() +
  facet_grid(~ Qtr)

tutor%>%
  ggplot(aes(x = All_Locations, 
                  )) +
  geom_histogram(binwidth = 50)

#library(lattice)
#densityplot(~ Total_Learning_Center + Core_Program_Off_Site), data = tutor, auto.key = TRUE)