I would like to order this bar plot based on ascending Inclusive Teaching, which is a level of "variable"
levels(dater$variable)[levels(dater$variable) == "Active Learning Exposure"] <- "Active Learning"
levels(dater$variable)[levels(dater$variable) == "EPIC_IT_Exposure"] <- "Formative Assessment"
levels(dater$variable)[levels(dater$variable) == "EPIC_As_Exposure"] <- "Inclusive Teaching"
ggplot(dater3,aes(Professor, value, fill=variable))+
geom_bar(stat="identity")+
theme(axis.ticks.x = element_blank(), axis.text.x = element_blank())+
ylab("Reported Exposure")+
scale_fill_manual(values = c("green","blue", "red"))+
labs(fill = "Evidence Based Teaching Practice")