Sorry, i will give an example
library(ggplot2)
Sectors <- c('Industry', 'Agriculture','Services')
Change <- c(-20, 10, 50)
df <- data.frame(Sectors, Change)
df
ggplot(df, aes(x = reorder(Sectors, Change), y = Change)) +
geom_bar(stat = "identity") +
coord_flip() +
xlab("Sector") + ylab("Change")
But I don't know if this is the correct and if is, I would like some help to make it better, like color and these things