* No legend needed

library(ggplot2)
library(plotly)

data <- read.csv("average-direct-cost-per-page-processed-for-closed-requests_2019-2023.csv", header = TRUE, sep = ",")
data$Institution <- factor(data$Institution, levels=c('ISC', 'CIRNAC', 'OTHER'))
p <- ggplot(data, aes(x = Institution, y = Cost, fill = Institution)) + geom_bar(stat = "identity") + facet_grid(~ Year) + scale_fill_manual(values = c("#1b9e77", "#7570b3", "#d95f02")) + scale_y_continuous(labels = scales::unit_format(unit = "", prefix = "$", sep = "", scale = 1.0))+ labs(fill = "Institution", x = "Institution", y = "Avg. Direct Costs / Page Processed") + theme(legend.position = "none")
ggplotly(p)