data(senateRace10)
data(senateRace10) table(senateRace10$party1) histPlot(senateRace10$perc1, xlab="Winning candidate vote percentage")
Run the code above in your browser using DataCamp Workspace