Updates to include count & density to fix the use of geom_hexbin

NEWS

@@ -7,6 +7,9 @@ ggplot2 1.0.1
 * Improvements to order of colours and legend display for continuous colour
   scales extracted from colorbrewer palettes by `scale_*_distiller()` (@jiho, 1076)
 
+* Restore functionality for use of `..density..` in 
+  `geom_hexbin()` (@mikebirdgeneau, #1688)
+
 ggplot2 1.0.0
 ----------------------------------------------------------------
 

R/stat-binhex.r

@@ -46,7 +46,10 @@ StatBinhex <- ggproto("StatBinhex", Stat,
 
     binwidth <- binwidth %||% hex_binwidth(bins, scales)
     wt <- data$weight %||% rep(1L, nrow(data))
-    hexBinSummarise(data$x, data$y, wt, binwidth, sum)
+    out <- hexBinSummarise(data$x, data$y, wt, binwidth, sum)
+    out$density <- as.vector(out$value / sum(out$value, na.rm = TRUE))
+
+    out
   }
 )
 

tests/testthat/test-geom-hex.R

@@ -0,0 +1,12 @@
+context("geom_hex")
+
+test_that("density and value summaries available", {
+  df <- data.frame(x = c(1, 1, 1, 2), y = c(1, 1, 1, 2))
+  base <- ggplot(df, aes(x, y)) +
+    geom_hex()
+
+  out <- layer_data(base)
+  expect_equal(nrow(out), 2)
+  expect_equal(out$density, c(0.75, 0.25), tolerance = 1e-7)
+  expect_equal(out$value, c(3, 1), tolerance = 1e-7)
+})