# add interactive bar -------
library(ggplot2)
library(ggiraph)
p <- ggplot(mpg, aes(displ, hwy)) +
geom_point() +
geom_smooth_interactive(aes(tooltip = "smoothed line", data_id = "smooth"))
x <- girafe(ggobj = p)
x <- girafe_options(x = x, opts_hover(css = "stroke:orange;stroke-width:3px;"))
if (interactive()) {
print(x)
}
p <- ggplot(mpg, aes(displ, hwy)) +
geom_point() +
geom_smooth_interactive(
method = lm,
se = FALSE,
tooltip = "smooth",
data_id = "smooth"
)
x <- girafe(ggobj = p)
if (interactive()) {
print(x)
}
p <- ggplot(
mpg,
aes(displ, hwy, colour = class, tooltip = class, data_id = class)
) +
geom_point_interactive() +
geom_smooth_interactive(se = FALSE, method = lm)
x <- girafe(ggobj = p)
x <- girafe_options(x = x, opts_hover(css = "stroke:red;stroke-width:3px;"))
if (interactive()) {
print(x)
}
Run the code above in your browser using DataLab