Code snippet to make tile plot in ggplot2

geom_tile_example.R

# snippet to make a tile plot


library("ggplot2")

x <- rnorm(5000, 0, 1.5)
y <- rnorm(5000, 0, 1.5)
df <- data.frame(cbind(x,y))

p <- ggplot(df, 
            aes(x=x,y=y))
p <- p + stat_bin(aes(fill=..count.., 
                      y=cut(y,20),
                      x=cut(x,20)), 
                  geom="tile", 
                  binwidth=0.5,
                  position="identity")
p