library(tidyverse)
set.seed(13)
names<-letters[1:10]
var1<-rnorm(10,25,5)
dat5<-tibble(names,var1)
Plot
ggplot(dat5, aes(x=reorder(names,var1), y=var1)) +
geom_segment( aes( xend=names, yend=0), color="darkolivegreen4") +
geom_point(color="chartreuse4") +
labs(y= "Variable 1", x="")