forked from davidgohel/ggiraph
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgeom_density_interactive.Rd
62 lines (54 loc) · 1.94 KB
/
geom_density_interactive.Rd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/geom_density_interactive.R
\name{geom_density_interactive}
\alias{geom_density_interactive}
\title{Create interactive smoothed density estimates}
\usage{
geom_density_interactive(...)
}
\arguments{
\item{...}{arguments passed to base function,
plus any of the \link{interactive_parameters}.}
}
\description{
The geometry is based on \code{\link[=geom_density]{geom_density()}}.
See the documentation for those functions for more details.
}
\section{Details for interactive geom functions}{
The interactive parameters can be supplied with two ways:
\itemize{
\item As aesthetics with the mapping argument (via \code{\link[=aes]{aes()}}).
In this way they can be mapped to data columns and apply to a set of geometries.
\item As plain arguments into the geom_*_interactive function.
In this way they can be set to a scalar value.
}
}
\examples{
# add interactive bar -------
library(ggplot2)
library(ggiraph)
p <- ggplot(diamonds, aes(carat)) +
geom_density_interactive(tooltip="density", data_id="density")
x <- girafe(ggobj = p)
x <- girafe_options(x = x,
opts_hover(css = "stroke:orange;stroke-width:3px;") )
if( interactive() ) print(x)
p <- ggplot(diamonds, aes(depth, fill = cut, colour = cut)) +
geom_density_interactive(aes(tooltip=cut, data_id=cut), alpha = 0.1) +
xlim(55, 70)
x <- girafe(ggobj = p)
x <- girafe_options(x = x,
opts_hover(css = "stroke:yellow;stroke-width:3px;fill-opacity:0.8;") )
if( interactive() ) print(x)
p <- ggplot(diamonds, aes(carat, fill = cut)) +
geom_density_interactive(aes(tooltip=cut, data_id=cut), position = "stack")
x <- girafe(ggobj = p)
if( interactive() ) print(x)
p <- ggplot(diamonds, aes(carat, after_stat(count), fill = cut)) +
geom_density_interactive(aes(tooltip=cut, data_id=cut), position = "fill")
x <- girafe(ggobj = p)
if( interactive() ) print(x)
}
\seealso{
\code{\link[=girafe]{girafe()}}
}