Graphiques interactifs avec plotly

Créer des tableaux de bord avec shinydashboard

Png Kee Seng

Researcher

Exemple : inscriptions Airbnb à Londres

Imaginez que nous travaillons pour une agence de voyages à Londres

Une collaboration a été établie avec Airbnb

library(tidyverse)
listings <- read_csv("../data/listings.csv")

...
 $ host_name                     : chr [1:69351] "Susie" "Alina" "Luca" "Simon" ...
 $ neighbourhood_group           : logi [1:69351] NA NA NA NA NA NA ...
 $ neighbourhood                 : chr [1:69351] "Tower Hamlets" "Islington" "Tower Hamlets" "Islington" ...
 $ latitude                      : num [1:69351] 51.5 51.6 51.5 51.5 51.5 ...
 $ longitude                     : num [1:69351] -0.054 -0.1127 -0.0743 -0.1048 -0.2 ...
 $ room_type                     : chr [1:69351] "Private room" "Private room" "Entire home/apt" "Private room" ...
 $ price                         : num [1:69351] 55 50 90 180 297 75 204 379 90 30 ...
 $ minimum_nights                : num [1:69351] 3 1 5 4 14 3 2 4 3 7 ...
 $ number_of_reviews             : num [1:69351] 65 30 42 493 6 89 581 51 104 32 ...
 $ last_review                   : Date[1:69351], format: "2016-06-10" "2022-07-15" "2022-01-04" "2022-09-02" ...
 $ reviews_per_month             : num [1:69351] 0.47 0.2 0.34 3.59 0.05 0.57 4.26 0.36 0.86 0.29 ...
 $ calculated_host_listings_count: num [1:69351] 1 2 1 5 1 1 1 5 1 1 ...
 $ availability_365              : num [1:69351] 74 343 222 236 180 70 193 249 318 251 ...
...

Premiers pas avec plotly

Importez la bibliothèque plotly
```
library(plotly)
```
Un objet plotly s'obtient en plaçant un objet ggplot dans ggplotly()
```
ggplotly(<ggplot object>)
```

Nuage de bulles avec ggplot

Créons un nuage de bulles et enregistrons-le sous bubble
- Montrer le lien entre la price moyenne et availability_365
- Couleur différente pour chaque room_type
- Taille de bulle proportionnelle au nombre d'inscriptions
- Ajouter des couches pour l'esthétique

bubble <- listings %>%

  group_by(room_type, neighbourhood) %>%
  summarise(avg_price = mean(price, na.rm=TRUE),
            avg_availability = mean(availability_365, 
                                        na.rm=TRUE),

            Count = n(), .groups = "drop") %>%

  ggplot(aes(x = avg_price, y = avg_availability,

                  color = room_type,

                size = Count)) +

  geom_point() +

labs(x = "Average price", 
      y = "Average availability", 
    color = "Room type") +
  theme_classic()

Nuage de bulles avec ggplot, rendu

Un nuage de bulles classique créé avec ggplot.

Nuage de bulles interactif avec plotly

Encapsulez bubble dans ggplotly()

ggplotly(bubble)

Un nuage de bulles plotly interactif.

Boîtes à moustaches horizontales avec plotly

Certains graphiques ne se convertissent pas correctement
Créez une série de diagrammes à moustaches horizontaux
- Décrire la distribution de availability_365 selon room_type
La conversion avec ggplotly() ne fonctionne pas

boxH <- listings %>%

  ggplot(aes(x = availability_365, y=room_type)) +

  geom_boxplot() +

  labs(x="Availbility (out of 365 days)", 
          y="Room type") + theme_classic()

ggplotly(boxH)

Diagrammes à moustaches horizontaux créés avec ggplot.

Diagrammes à moustaches horizontaux convertis avec ggplotly.

Boîtes à moustaches verticales avec plotly

Inversez x et y dans aes()
La conversion plotly fonctionnera maintenant

boxV <- listings %>%

  ggplot(aes(y = availability_365, x=room_type)) +
  geom_boxplot() +
  labs(y="Availbility (out of 365 days)", x="Room type") + 
  theme_classic()

ggplotly(boxV)

Diagrammes à moustaches verticaux avec ggplot.

Diagrammes à moustaches verticaux avec ggplotly.

Corriger les boîtes horizontales avec plotly

Et si nous voulons des boîtes horizontales ?
- Ajouter coord_flip()
On peut aussi utiliser facet_wrap()
- Chaque panneau doit être assez grand

ggplotly(boxV + coord_flip())

ggplotly(boxV + coord_flip() + 
    facet_wrap(~neighbourhood))

Boîtes à moustaches plotly basculées.

Boîtes à moustaches en panneaux avec plotly.

Passons à la pratique !

Créer des tableaux de bord avec shinydashboard