Lecture-7

R Markdown

library(dplyr)
library(ggplot2)
library(stringr)
data <- read.csv("C:/Manisha_Arora/UC-BANA/Sem1/Data Wrangling R - BB/Data Wrangling with R (BANA 8090)/Final Project/Raw data/City_Payroll_Data.csv")


a <- data %>%
  subset(select = Job.Class.Title) %>%
  unique()

b <- function(a, Y,J){
  a %>%
    filter(Year==Y) %>%
    filter(str_detect(Job.Class.Title, regex(J, ignore_case=TRUE))) %>%
    select(c(ï..Row.ID,Year,Job.Class.Title, Total.Payments)) %>%
    top_n(5) %>%
    ggplot(mapping=aes(x=Job.Class.Title, y=Total.Payments)) +
    geom_bar(stat="identity")
}

b(data, 2014, "Account")