# Simple Bar Plot
library(tidyverse)
counts <- as.data.frame(table(mtcars$gear))
counts %>% mutate(prop_per = round(Freq/sum(Freq),2)*100) -> data
barplot(height = data$prop_per, width = .5, xlab= "proportion")
Above leads to plot as below:
However, can we visualize as below ?
So that progressive decrease can be visible: