x=element_text(angle=90,hjust=1,vjust=vlabel)) + labs(x="Contest", title="Pledged delegate gap", y="Gap", fill="Candidate") + geom_text(data=number, show.legend=F, aes(x=State...
