geom_dumbbell end point shape by group

[kimblew]

Hi @hrbrmstr liking geom_dumbbell but have a case where I would like to have different shapes for the end point based upon a group

looking something similar to

df <- data.frame(sample = c('a','b'), from=c(1,2), to=c(4,3),outcome=as.factor(c('happy','sad')))
ggplot(df, aes(y=forcats::fct_reorder(sample,from,.desc=T),x=from,xend=to)) + geom_dumbbell() + labs(y=NULL)

geom_dumbbell(shape_xend = outcome)