Set axis tick and label to include maximum value on bar plot

Question

I am using base R to create multiple side-by-side bar plots (I prefer to avoid ggplot because I am often limited in functionality). I find the result not visually p