With friends like that, who needs enemies?
ggplot(data = dataset, aes(x=candidate_name, y=contributor_money)) +scale_y_continuous("", labels=dollar) + geom_bar(stat="identity",fill="blue") + theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
ggtitle("Monetary contributions per candidate in Millions") + labs(x="",y="")
In order to explore the dataset, users can choose a specific candidate.
On candidate dropdown change, each plot is generated on the fly using Shiny's reactive function.