Jani Data

#count contact hours per company

Companycount <- jani_data %>%
  count(company)

# Companycount
  
CompanyContactHours <- jani_data %>%
  select(company, contact_hours) %>%
  ggplot(aes(x = company, y = contact_hours)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(guide = guide_axis(n.dodge=2)) +
  labs(title = "Company",
       x="company",
       y="contact hours")



CompanyContactHours

#number of times each school has been visited
SchoolVisits <- jani_data %>%
  count(school) %>%
  filter(n > 250) %>%
  # arrange(desc(n))
  ggplot(aes(x = school, y = n)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(guide = guide_axis(n.dodge=2)) +
  labs(title = "Visits per School",
       x = "School",
       y = "Visits")


SchoolVisits