library(ggplot2)
iris %>%
add_tooltip() %>%
head(1)
iris %>%
add_tooltip(tidyselect::contains("Sepal"), Species) %>%
head(1)
if (requireNamespace("ggiraph", quietly = TRUE)) {
p <- iris %>%
add_tooltip(tidyselect::contains("Sepal"), Species) %>%
gg_blank(x = Sepal.Width,
y = Sepal.Length,
col = Species,
facet = Species) +
ggiraph::geom_point_interactive(aes(tooltip = tooltip))
ggiraph::girafe(ggobj = p, width_svg = 5, height_svg = 4)
}
Run the code above in your browser using DataLab