In class assignment

Loading Data

We loaded our data directly from the link given my our Supreme Leader JOEL… using read_excel download.file read_excel excel_sheets

Including Plots

We uploaded 3 different graphs

ggplot(data = adcisurvey,
       aes(x=Salary))+
      geom_bar()

ggplot(data = adcisurvey,
       aes(x = FinancialSecurity,y = TrustPeople)) +
  geom_point(position = "jitter", color = "blue")

adcisurvey%>%
  group_by(Salary) %>%
  summarise(`Average Happiness` = mean(Happiness)) %>%
ggplot( aes(x=Salary, y=`Average Happiness`))+
  geom_col()