In davidgohel/ggiraph: Make 'ggplot2' Graphics Interactive

library(flexdashboard)

Column {data-width=650}

Chart A

library(ggiraph)
library(ggplot2)
library(magrittr)

dataset = iris
dataset$tooltip = dataset$Species
dataset$clickjs = paste0("alert(\"",dataset$Species, "\")" )

# plots
gg_point = ggplot(dataset, aes(x = Sepal.Length, y = Petal.Width,
                               color = Species, data_id = Species, 
                               tooltip = tooltip, onclick = clickjs) ) +
  geom_point_interactive() + theme_light()

x <- girafe(code = {print(gg_point)}, width_svg = 8, height_svg = 5)
x

Column {data-width=350}

Table

DT::datatable(dataset)

davidgohel/ggiraph documentation built on June 11, 2025, 11:37 p.m.