set.seed(753)
## boxplot of smoothed counts
x <- rnorm(10000)
y <- rnorm(10000)
bin <- hexbin(x,y)
erodebin <- erode(smooth.hexbin(bin))
hboxplot(erodebin)
hboxplot(erodebin, density = c(32,7), border = c(2,4))
hp <- hboxplot(erodebin, density = c(-1,17),
main = "hboxplot(erode*(smooth*(.)))")
pushHexport(hp)
grid.points(x[1:10], y[1:10])# just non-sense to show the principle
popViewport()
Run the code above in your browser using DataLab