In R, how do I count the number of data points on a scatter plot within a cell of custom dimensions?

Question

Let\'s just say I have the following scatterplot:

set.seed(665544)
n <- 100
x <- cbind(
  x=runif(10, 0, 5) + rnor