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