# 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()