library(ggplot2)
library(plotly)

data <- read.csv("annual-costs-allocated-to-staffing-and-consultants-in-atip-directorate-2019-2023.csv", header = TRUE, sep = ",")
data$institution <- factor(data$institution, levels=c('ISC', 'CIRNAC'))
data$classification <- factor(data$classification, levels=c('Consultant', 'Staffing'))
p <- ggplot(data) + geom_bar(aes(x = institution, y = cost, fill = classification), position = "stack", stat = "identity") + facet_grid(~ year)+ scale_fill_manual(values=c("#238b45","#2171b5")) + scale_y_continuous(labels = scales::unit_format(unit = "K", prefix = "$", sep = "", scale = .001))+ labs(fill = "Classification", x = "Institution", y = "Direct Cost")
ggplotly(p)