Final_Presentation

 library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)

df <-  read.csv("C:\\Users\\Nkhosikhona Mpungose\\Downloads\\parks_and_rec_dataset.csv")

Department vs Annual Salary

df%>%
  group_by(Department)%>%
  filter(Department %in% c( "Parks", "City Management"))%>%
  select(Department,  Annual_Salary)%>%
  ggplot(aes(x= Department, Annual_Salary))+
  geom_bar(stat = "identity")+
  theme_light()+
  ggtitle("Department vs Annual Salary")

Role vs Total_ Salary

df%>% select(Role, Annual_Salary)%>% group_by(Role) %>% summarise(Total_Salary= sum(Annual_Salary))%>% 
  ggplot(aes(x= Role, y = Total_Salary,fill =  Role))+
  geom_col()+ theme(axis.text.x = element_text(angle = 45))+
  ggtitle("Role vs Total_ Salary")