Aguncan

library(ggplot2)

fake_data <-
    data.frame(
        group = c(rep("a",5),rep("b",5)),
        value = c(-1 * c(1,2.5,1,3.5,2.25), c(3,3.5,1.5,1,1.5)),
        y = c(1:5,1:5))

head(fake_data)