Cacher is the code snippet organizer for pro developers

ggplot(a, aes(x = State, y =LoanVolume,fill=Loan_Purpose_Description))
+geom_bar(stat ="identity",position = "dodge")

#position dodge is important and fill by the variable is also important