JohnQ1 <- John%>%
  filter(Qtr == "Q1")
JohnQ2 <- John%>%
  filter(Qtr == "Q2")
JohnQ3 <- John%>%
  filter(Qtr == "Q3")
JohnQ4 <- John%>%
  filter(Qtr == "Q4")
# 2016 and all four quarters
John_2016 <- John %>%
  filter(Year == "2016")
John_2016_Q1 <- John_2016 %>%
  filter(Qtr == "Q1")
John_2016_Q2 <- John_2016 %>%
  filter(Qtr == "Q2")
John_2016_Q3 <- John_2016 %>%
  filter(Qtr == "Q3")
John_2016_Q4 <- John_2016 %>%
  filter(Qtr == "Q4")
#2016 New Enrollments by quarter and total
sum(John_2016_Q1$New_Enrolled)
## [1] 17
sum(John_2016_Q2$New_Enrolled)
## [1] 24
sum(John_2016_Q3$New_Enrolled)
## [1] 31
sum(John_2016_Q4$New_Enrolled)
## [1] 20
sum(John_2016$New_Enrolled)
## [1] 92
#2017 and all four quarters
John_2017 <- John %>%
  filter(Year == "2017")
John_2017_Q1 <- John_2017 %>%
  filter(Qtr == "Q1")
John_2017_Q2 <- John_2017 %>%
  filter(Qtr == "Q2")
John_2017_Q3 <- John_2017 %>%
  filter(Qtr == "Q3")
John_2017_Q4 <- John_2017 %>%
  filter(Qtr == "Q4")
#2017 New Enrollments by quarter and total
sum(John_2017_Q1$New_Enrolled)
## [1] 18
sum(John_2017_Q2$New_Enrolled)
## [1] 32
sum(John_2017_Q3$New_Enrolled)
## [1] 27
sum(John_2017_Q4$New_Enrolled)
## [1] 15
sum(John_2017$New_Enrolled)
## [1] 92
# 2018 and all four quarters
John_2018 <- John %>%
  filter(Year == "2016")
John_2018_Q1 <- John_2018 %>%
  filter(Qtr == "Q1")
John_2018_Q2 <- John_2018 %>%
  filter(Qtr == "Q2")
John_2018_Q3 <- John_2018 %>%
  filter(Qtr == "Q3")
John_2018_Q4 <- John_2018 %>%
  filter(Qtr == "Q4")
#2018 New Enrollments by quarter and total
sum(John_2018_Q1$New_Enrolled)
## [1] 17
sum(John_2018_Q2$New_Enrolled)
## [1] 24
sum(John_2018_Q3$New_Enrolled)
## [1] 31
sum(John_2018_Q4$New_Enrolled)
## [1] 20
sum(John_2018$New_Enrolled)
## [1] 92
#2019  and all four quarters
John_2019 <- John %>%
  filter(Year == "2019")
John_2019_Q1 <- John_2019 %>%
  filter(Qtr == "Q1")
John_2019_Q2 <- John_2019 %>%
  filter(Qtr == "Q2")
John_2019_Q3 <- John_2019 %>%
  filter(Qtr == "Q3")
John_2019_Q4 <- John_2019 %>%
  filter(Qtr == "Q4")
#2019 New Enrollments by quarter and total
sum(John_2019_Q1$New_Enrolled)
## [1] 33
sum(John_2019_Q2$New_Enrolled)
## [1] 35
sum(John_2019_Q3$New_Enrolled)
## [1] 41
sum(John_2019_Q4$New_Enrolled)
## [1] 20
sum(John_2019$New_Enrolled)
## [1] 129
#2020 and all four quarters
John_2020 <- John %>%
  filter(Year == "2020")
John_2020_Q1 <- John_2020 %>%
  filter(Qtr == "Q1")
John_2020_Q2 <- John_2020 %>%
  filter(Qtr == "Q2")
John_2020_Q3 <- John_2020 %>%
  filter(Qtr == "Q3")
John_2020_Q4 <- John_2020 %>%
  filter(Qtr == "Q4")
#2020 New Enrollments by quarter and total
sum(John_2020_Q1$New_Enrolled)
## [1] 24
sum(John_2020_Q2$New_Enrolled)
## [1] 17
sum(John_2020_Q3$New_Enrolled)
## [1] 39
sum(John_2020_Q4$New_Enrolled)
## [1] 26
sum(John_2020$New_Enrolled)
## [1] 106
#2021 and all four quarters
John_2021 <- John %>%
  filter(Year == "2021")
John_2021_Q1 <- John_2021 %>%
  filter(Qtr == "Q1")
John_2021_Q2 <- John_2021 %>%
  filter(Qtr == "Q2")
John_2021_Q3 <- John_2021 %>%
  filter(Qtr == "Q3")
John_2021_Q4 <- John_2021 %>%
  filter(Qtr == "Q4")
#2021 New Enrollments by quarter and total
sum(John_2021_Q1$New_Enrolled)
## [1] 25
sum(John_2021_Q2$New_Enrolled)
## [1] 42
sum(John_2021_Q3$New_Enrolled)
## [1] 23
sum(John_2021_Q4$New_Enrolled)
## [1] 10
sum(John_2021$New_Enrolled)
## [1] 100
#Every year quarter one all new enrolled
sum(John_2016_Q1$New_Enrolled+John_2017_Q1$New_Enrolled+John_2018_Q1$New_Enrolled+John_2019_Q1$New_Enrolled+John_2020_Q1$New_Enrolled+John_2021_Q1$New_Enrolled)
## [1] 134
#Every year quarter two all new enrolled
sum(John_2016_Q2$New_Enrolled+John_2017_Q2$New_Enrolled+John_2018_Q2$New_Enrolled+John_2019_Q2$New_Enrolled+John_2020_Q2$New_Enrolled+John_2021_Q2$New_Enrolled)
## [1] 174
#Every year quarter three all new enrolled
sum(John_2016_Q3$New_Enrolled+John_2017_Q3$New_Enrolled+John_2018_Q3$New_Enrolled+John_2019_Q3$New_Enrolled+John_2020_Q3$New_Enrolled+John_2021_Q3$New_Enrolled)
## [1] 192
#Every year quarter four all new enrolled
sum(John_2016_Q4$New_Enrolled+John_2017_Q4$New_Enrolled+John_2018_Q4$New_Enrolled+John_2019_Q4$New_Enrolled+John_2020_Q4$New_Enrolled+John_2021_Q4$New_Enrolled)
## [1] 111
# by type of program, by onsite vs offsite
#Plot for Quarter one based on number of new enrolled as offsite hours increase
ggplot(data = JohnQ1, mapping = aes(x = Offsite_Hours, y = New_Enrolled)) +
  geom_point() +
  labs(title = "",
       x = "Offsite Hours", y = "New Enrolled")

#Plot for Quarter one based on number of new enrolled as onsite hours increase
ggplot(data = JohnQ1, mapping = aes(x = Total_LC_Hours, y = New_Enrolled)) +
  geom_point() +
  labs(title = "",
       x = "Onsite Hours", y = "New Enrolled")

#Plot for Quarter two based on number of new enrolled as offsite hours increase
ggplot(data = JohnQ2, mapping = aes(x = Offsite_Hours, y = New_Enrolled)) +
  geom_point() +
  labs(title = "",
       x = "Offsite Hours", y = "New Enrolled")

#Plot for Quarter two based on number of new enrolled as onsite hours increase
ggplot(data = JohnQ2, mapping = aes(x = Total_LC_Hours, y = New_Enrolled)) +
  geom_point() +
  labs(title = "",
       x = "Onsite Hours", y = "New Enrolled")

#Plot for Quarter three based on number of new enrolled as offsite hours increase
ggplot(data = JohnQ3, mapping = aes(x = Offsite_Hours, y = New_Enrolled)) +
  geom_point() +
  labs(title = "",
       x = "Offsite Hours", y = "New Enrolled")

#Plot for Quarter three based on number of new enrolled as onsite hours increase
ggplot(data = JohnQ1, mapping = aes(x = Total_LC_Hours, y = New_Enrolled)) +
  geom_point() +
  labs(title = "",
       x = "Onsite Hours", y = "New Enrolled")

#Plot for Quarter four based on number of new enrolled as offsite hours increase
ggplot(data = JohnQ4, mapping = aes(x = Offsite_Hours, y = New_Enrolled)) +
  geom_point() +
  labs(title = "",
       x = "Offsite Hours", y = "New Enrolled")

#Plot for Quarter four based on number of new enrolled as onsite hours increase
ggplot(data = JohnQ1, mapping = aes(x = Total_LC_Hours, y = New_Enrolled)) +
  geom_point() +
  labs(title = "",
       x = "Onsite Hours", y = "New Enrolled")

Most of the new enrollment happens during Quarters two and three and there is a trend of new enrollment when more onsite work is being done. Therefore, change some of the marketing during the first and fourth quarter and either advertise onsite programs more to see a continuous trend or make changes to offsite programs to see an increase in enrollment for those programs.