# add interactive raster to a ggplot -------
library(ggplot2)
library(ggiraph)
df <- expand.grid(x = 0:5, y = 0:5)
df$z <- runif(nrow(df))
gg <- ggplot(df, aes(x, y, fill = z, tooltip = "tooltip")) +
geom_raster_interactive() +
scale_fill_gradient_interactive(
data_id = "coco",
onclick = "cici",
tooltip = "cucu"
)
x <- girafe(ggobj = gg)
if (interactive()) {
print(x)
}
Run the code above in your browser using DataLab