visualizing random draws in R