Creating a positive negative bar chart in r

Question

I have a dataframe, x5 and I want to create a positive negative barchart with the data similar to the question from stackoverflow: Question from Stackoverflow

I was a