plot2012and2018 <- ggplot(GYB, aes(x = Year,)) +
geom_bar(aes(color = Cast, fill = Cast),
       stat = "count", position = position_dodge(0.8),
       width = 0.7) +
scale_color_manual(values = c("#0073C2FF", "#EFC000FF"))+
scale_fill_manual(values = c("#0073C2FF", "#EFC000FF"))+
labs(y= "Count", x= "Year", title="GYB 2012 and 2018")
plot2012and2018