# 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)
Run the code above in your browser using DataLab