# add interactive violin plot -------
library(ggplot2)
library(ggiraph)
p <- ggplot(mtcars, aes(factor(cyl), mpg)) +
geom_violin_interactive(aes(fill = cyl, tooltip = cyl))
x <- girafe(ggobj = p)
if( interactive() ) print(x)
# Show quartiles
p2 <- ggplot(mtcars, aes(factor(cyl), mpg)) +
geom_violin_interactive(aes(tooltip=after_stat(density)),
draw_quantiles = c(0.25, 0.5, 0.75))
x2 <- girafe(ggobj = p2)
if( interactive() ) print(x2)
Run the code above in your browser using DataLab