# NOT RUN {
library(ggplot2)
library(ggiraph)
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