# NOT RUN {
library(ggplot2)
library(htmlwidgets)
dataset <- mtcars
dataset$carname = row.names(mtcars)
gg_point = ggplot( data = dataset,
mapping = aes(x = wt, y = qsec, color = disp,
tooltip = carname, data_id = carname) ) +
geom_point_interactive() + theme_minimal()
x <- girafe(ggobj = gg_point)
x <- girafe_options(x = x,
opts_tooltip(opacity = .7),
opts_zoom(min = .5, max = 4),
sizingPolicy(defaultWidth = "100%", defaultHeight = "300px"),
opts_hover(css = "fill:red;stroke:orange;r:5pt;") )
if(interactive()){
print(x)
}
# }
Run the code above in your browser using DataLab