``` R library(ggplot2) library(tibble) df <- frame_data( ~x, ~g, ~y, 1, 1, 1, 1, 2, -1, 1, 3, 1, 2, 1, 2, 2, 2, -3 ) ggplot(df, aes(x, y, fill= factor(g))) + geom_bar(stat = "identity") ```