Nothing
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
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.