sometimes you just want to visualize a quantity; this shows a given number of dots

this_many_dots.R

# sometimes you just want to visualize a quantity; this shows a given number of dots

library(ggplot2)
library(magrittr)

dot_count <- 300
size <- ceiling(dot_count^.5)

data.frame(x = rep(1:size, each=size),
           y = rep(size:1, size),
           clr = sample(letters[1:6], size^2, replace=T),
           id = 1:(size^2)) %>%
  subset(id <= dot_count) %>%
  ggplot(aes(x,y, color=clr)) +
  #geom_point(size=4, show.legend = F) + # neat version
  geom_jitter(size=4, show.legend = F, alpha=0.8) + # jitter version
  scale_color_brewer(type='qual', palette='Set1') +
  theme_void()