Barplot with exact numbers printed in plot

barplot_with_exact_figures.R

#Barplots with exact numbers


data(tips, package = "reshape2")  # load some data

library(dplyr)
library(tidyr)
library(ggplot2)

tips %>% 
  group_by(sex, smoker) %>% 
  summarise(mean_group = mean(tip)) %>% 
  ggplot(aes(x = smoker, y = mean_group, 
             color = sex, shape = smoker,
             group = sex,
             label = round(mean_group, 2))) + 
  geom_point() +
  geom_line() +
  geom_text(aes(x = smoker, y = mean_group + 0.03))
  
  # see figure online here http://rpubs.com/sebastiansauer/192499