From 27d7bd8a8ab5855336fbe906a10020837aca27bb Mon Sep 17 00:00:00 2001 From: Luke Smith Date: Thu, 4 Jul 2019 10:42:00 -0500 Subject: [PATCH 1/2] Update geom_bkde2d.r --- R/geom_bkde2d.r | 1 + 1 file changed, 1 insertion(+) diff --git a/R/geom_bkde2d.r b/R/geom_bkde2d.r index 218a405..a912a5d 100644 --- a/R/geom_bkde2d.r +++ b/R/geom_bkde2d.r @@ -185,6 +185,7 @@ StatBkde2d <- ggproto("StatBkde2d", Stat, StatContour$compute_panel(df, scales) } else { names(df) <- c("x", "y", "density", "group") + df$ndensity <- df$density/max(df$density, na.rm = TRUE) df$level <- 1 df$piece <- 1 df From 3aa31f3bc8fdc1db6d264a6917638476fd012cc9 Mon Sep 17 00:00:00 2001 From: Luke Smith Date: Fri, 5 Jul 2019 15:47:22 -0500 Subject: [PATCH 2/2] Add contributor --- DESCRIPTION | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 0977d65..c46bb20 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -14,7 +14,8 @@ Authors@R: c( person("Aditya", "Kothari", role=c("aut", "ctb"), comment="Core functionality of horizon plots"), person("Ather", role="dtc", comment="Core functionality of horizon plots"), person("Jonathan","Sidi", role=c("aut","ctb"), comment="Annotation ticks"), - person("Tarcisio","Fedrizzi", role="ctb", comment="Bytes formatter") + person("Tarcisio","Fedrizzi", role="ctb", comment="Bytes formatter"), + person("Luke", "Smith", role="ctb", comment="Added ndensity to StatBkde2d") ) Description: A compendium of new geometries, coordinate systems, statistical transformations, scales and fonts for 'ggplot2', including splines, 1d and 2d densities,