p <- ggplot(data, aes(Groups, Measure))+ geom_bar() print(p)