ggplot(mtcars, aes(x = cyl, y = hp)) + geom_bar(stat = "identity", width = 1, position = position_nudge(x = 0.5))
How I figured this out: Went to
?geom_bar and saw that there was a postion argument and a link to
?position_dodge. Look at the examples there and made modifications to your code. Seems to be a satisfactory solution.