R: Create interactive contours of a 2d density estimate

geom_density_2d_interactive {ggiraph} | R Documentation

## Create interactive contours of a 2d density estimate

### Description

The geometry is based on `geom_density_2d()`. See the documentation for those functions for more details.

### Usage

    geom_density_2d_interactive(...)

### Arguments

`...` | arguments passed to base function, plus any of the `interactive_parameters()`.

### Details for geom_*_interactive functions

The interactive parameters can be supplied with two ways:

- As aesthetics with the mapping argument (via `aes()`). In this way they can be mapped to data columns and apply to a set of geometries.

- As plain arguments into the geom_*_interactive function. In this way they can be set to a scalar value.

### See Also

`girafe()`

### Examples

    # add interactive contours to a ggplot -------
    library(ggplot2)
    library(ggiraph)

    m <- ggplot(faithful, aes(x = eruptions, y = waiting)) +
      geom_point_interactive(aes(tooltip = paste("Waiting:", waiting, "\neruptions:", eruptions))) +
      xlim(0.5, 6) +
      ylim(40, 110)
    p <- m + geom_density_2d_interactive(aes(tooltip = paste("Level:", stat(level))))
    x <- girafe(ggobj = p)
    if (interactive()) print(x)

    set.seed(4393)
    dsmall <- diamonds[sample(nrow(diamonds), 1000), ]
    d <- ggplot(dsmall, aes(x, y))

    p <- d + geom_density_2d_interactive(aes(colour = cut, tooltip = cut, data_id = cut))
    x <- girafe(ggobj = p)
    x <- girafe_options(x = x,
                        opts_hover(css = "stroke:red;stroke-width:3px;") )
    if (interactive()) print(x)

    p <- d + stat_density_2d(aes(fill = stat(nlevel),
                                 tooltip = paste("nlevel:", stat(nlevel))),
                             geom = "interactive_polygon") +
      facet_grid(. ~ cut) + scale_fill_viridis_c_interactive(tooltip = "nlevel")
    x <- girafe(ggobj = p)
    if (interactive()) print(x)

[Package ggiraph version 0.7.9 Index]