library(xaringan)
library(ggplot2)
library(ggiraph)
dat <- mtcars
dat$carname <- row.names(mtcars)
gg_point = ggplot(data = dat) +
    geom_point_interactive(aes(x = wt, y = qsec, color = disp,
    tooltip = paste(carname, disp, sep = "\n"), data_id = carname)) + theme_minimal()
x <- girafe(ggobj = gg_point)
x


davidgohel/ggiraph documentation built on April 13, 2024, 7:19 a.m.