I can't work with your code since you haven't provided sample data so I'm going to give you an example with a built-in dataset.
library(tidyverse)
iris %>%
group_by(Species) %>%
summarise(Petal.Length = mean(Petal.Length)) %>%
ggplot(aes(x = Petal.Length, y = reorder(Species, Petal.Length))) +
geom_col(width = 0.05) +
geom_point(col = "Orange")
Created on 2020-04-30 by the reprex package (v0.3.0)
If you need more specific help, please provide a proper REPRoducible EXample (reprex) illustrating your issue.