# add interactive quantiles to a ggplot -------
library(ggplot2)
library(ggiraph)
if (requireNamespace("quantreg", quietly = TRUE)) {
m <- ggplot(mpg, aes(displ, 1 / hwy)) + geom_point()
p <- m + geom_quantile_interactive(
aes(
tooltip = after_stat(quantile),
data_id = after_stat(quantile),
colour = after_stat(quantile)
),
formula = y ~ x,
size = 2,
alpha = 0.5
)
x <- girafe(ggobj = p)
x <- girafe_options(x = x,
opts_hover(css = "stroke:red;stroke-width:10px;") )
if (interactive()) print(x)
}
Run the code above in your browser using DataLab