powered by
theme_nothing(base_size = 12)
library(ggplot2) n <- 50 df <- expand.grid(x = 1:n,y = 1:n)[sample(n^2,.5*n^2),] qplot(x, y, data = df, geom = 'tile') qplot(x, y, data = df, geom = 'tile') + theme_nothing()
Run the code above in your browser using DataLab