# add interactive dot plots to a ggplot -------
library(ggplot2)
library(ggiraph)
p <- ggplot(mtcars, aes(x = mpg, fill = factor(cyl))) +
geom_dotplot_interactive(
aes(tooltip = row.names(mtcars)),
stackgroups = TRUE, binwidth = 1, method = "histodot"
)
x <- girafe(ggobj = p)
if( interactive() ) print(x)
gg_point = ggplot(
data = mtcars,
mapping = aes(
x = factor(vs), fill = factor(cyl), y = mpg,
tooltip = row.names(mtcars))) +
geom_dotplot_interactive(binaxis = "y",
stackdir = "center", position = "dodge")
x <- girafe(ggobj = gg_point)
if( interactive() ) print(x)
Run the code above in your browser using DataLab