Thank you Gal so much. I tried it and it worked. You are right, it was busy because of the number of groups(medications). I really appreciate it.
summarise(Total = sum(UNIQUE_PT_COUNT)) %>%
trend_overall_shands<-ggplot(data = yearly_overall_shands, aes(x = factor(MEDICATION), fill = factor(YEAR), y = Total)) +