# Resample 100 times, and find the mean of each
data_frame(num = 1:100) %>% 
    group_by(num) %>% 
    mutate(means = mean(sample(x, replace = TRUE))) %>% 
    ggplot(aes(x = means)) +
    geom_freqpoly()