Quoi de neuf avec ggiraph

ggiraph, qu’est ce que c’est?

Le package ggiraph permet de travailler avec ggplot et de produire des graphiques interactifs. Le nombre de fonctionnalités est restreint et l’utilisation simple. Les trois fonctionnalités à retenir sont

• la capacité à animer les points, polygones et lignes,
• l’affichage de tooltip quand la souris passe sur ces éléments
• la capacité de sélectionner ces éléments quand le graphique est affiché dans une application shiny.

Un exemple avec des chats qui miaulent

Une illustration s’impose… On va représenter les répartitions des chats et chiens parmi les animaux de compagnie aux Etats Unis. On va afficher un tooltip, animer les barres et le click déclenchera la lecture d’un son de chien ou de chat.

Tout d’abord, je défini quelques objets JavaScript. Ces objets sont des objets media qui nous permettront de jouer un son quand on cliquera sur une barre interactive.

var ouahouah = new Audio("/media/uhauha.ogg" ) ;
var meow = new Audio("/media/Meow.ogg" ) ;

Maintenant, il faut préparer les données. Le code suivant permet l’importation des données et la création d’un tableau de répartition par état.

library(ggiraph)
library(tidyverse)

# curl download file from github ----
xlfile <- tempfile()
curl::curl_download(
  url = paste0(
    "https://github.com/davidgohel/budapestbi2017/",
    "blob/master/docs/ggiraph/data/",
    "cats-vs-dogs.xlsx?raw=true"
  ), destfile = xlfile
)

# aggregate and prepare data for ggplot/ggiraph ----
data <- readxl::read_excel(xlfile) %>%
  select(Location, `Percentage of Dog Owners`, `Percentage of Cat Owners`) %>%
  set_names(c("location", "dog", "cat")) %>%
  gather(animal, percentage, -location) %>%
  mutate(clickjs = case_when(
    animal %in% "dog" ~ "ouahouah.play();",
    animal %in% "cat" ~ "meow.play();",
    TRUE ~ "coincoin.play();"
  ), data_id = paste0(location, animal))

head(data)

On peut maintenant créer notre graphique ggplot, on utilise seulement geom_bar_interactive à la place de geom_bar.

gg <- ggplot(data = data, aes(
  x = location, y = percentage, fill = animal,
  onclick = clickjs, data_id = data_id, tooltip = percentage
)) +
  geom_bar_interactive(stat = "identity") +
  theme_minimal() +
  scale_fill_manual(values = c("#FF4136", "#FFDC00")) +
  labs(title = "click on bars to play cat or dog sound!") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

girafe(ggobj = gg, width_svg = 10, height_svg = 4) %>%
  girafe_options(ggiraph::opts_hover(css = "fill:#22222288;cursor:pointer;"))

Les nouveautés

library(tibble)
library(ggiraph)
library(magrittr)

gg_point <- ggplot(
  data = mtcars,
  mapping = aes(x = wt, y = mpg, size = disp, color = as.factor(carb))
) +
  geom_point_interactive(aes(tooltip = row.names(mtcars), data_id = row.names(mtcars))) +
  scale_color_brewer(palette = "Set1", name = "carb") +
  scale_size(range = c(1, 15), name = "disp") +
  scale_x_continuous(limits = c(1, 6)) +
  scale_y_continuous(limits = c(7, 36)) +
  theme_minimal() +
  theme(legend.position = "bottom")

girafe_obj <- girafe(ggobj = gg_point) %>%
  girafe_options(
    opts_tooltip(opacity = .7),
    opts_zoom(min = .5, max = 4),
    opts_hover(css = "fill:red;stroke:white;stroke-width:2px;")
  )

Utilisation de webpack et d’ES6

Grâce à Babel et Webpack, nous avons pu réécrire complètement le code JavaScript sous forme d’un module ES6. Modulariser l’application a été l’opportunité de nettoyer et consolider le code mais aussi de mieux supporter les anciens navigateurs.

Cela a semble t-il facilité également la collaboration. Nous avons reçu l’aide de Panagiotis Skintzos qui a réalisé un super travail de revue et d’amélioration du rendu (si vous voyez un graphique ggiraph dans une application shiny depuis votre mobile, c’est grâce à lui par exemple).

visual studio code

Les évolutions à venir

Le projet est maintenant assez stable. Dans les prochaines itérations, les efforts porteront majoritairement sur la partie interactive. Le travail qui nous semble le plus motivant est la possibilité d’avoir une animation sur le point le plus proche du curseur et pas seulement sur le point sous le curseur.