I am trying to create a side by side bar chart from this subset of a data frame
ExitVelocityAverage
Name CombinedAvgEV PlayerAvgEV
<chr> <dbl> <dbl>
1 Adam Harrison 85.9 80.8
Ultimately I would have one barchart that has Adam's Average (PlayerAvgEV) and another barchart that shows the total average of the data frame (CombinedAvgEV). Ideally these barcharts would be side by side and this would show that Adam is below the average.
This is where I am at but it isn't working
ggplot(ExitVelocityAverage, aes(x=Name))
geom_bar(aes(x = Name,y=PlayerAvgEV), col = "red", fill = "red", stat="identity") +
geom_bar(aes(x = Name,y=CombinedAvgEV), col = "blue", fill = "blue", stat="identity")
Any help would be greatly appreciated.