Explorer des fonctionnalités adaptées au Web
Essayons plotly avec un autre graphique et explorons les fonctions interactives.
Cette activité fait partie du cours
Créer des tableaux de bord avec flexdashboard
Instructions de l’exercice
- Générez le tricotage tel quel, agrandissez l'afficheur HTML, puis examinez le graphique obtenu.
- Utilisez
ggplotly()pour rendre le graphiquestation_ggde Station Usage convivial pour le Web. - Recompilez et agrandissez pour vous préparer à l'exploration.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
{"my_document.Rmd":"---\ntitle: \"Bike Shares Daily\"\noutput: \n flexdashboard::flex_dashboard:\n orientation: columns\n vertical_layout: fill\n---\n\n```{r setup, include=FALSE}\nlibrary(flexdashboard)\nlibrary(readr)\nlibrary(lubridate)\nlibrary(ggplot2)\nlibrary(tidyverse)\nlibrary(plotly)\n\ntrips_df <- read_csv('https://assets.datacamp.com/production/course_6355/datasets/sanfran_bikeshare_joined_oneday.csv')\n```\n\nColumn \n-----------------------------------------------------------------------\n\n### Station Usage\n\n```{r}\n\nstation_df <- trips_df %>%\n select(start_station_name, end_station_name) %>%\n rename(Start = start_station_name, End = end_station_name) %>%\n pivot_longer(cols = Start:End, names_to = 'Usage', values_to = 'Station')\n\nstation_gg <- ggplot(station_df,\n aes(x = Station, fill = Usage)) +\n geom_bar(position = 'stack') +\n theme_bw() +\n ylab('Trips') +\n xlab('') +\n theme(axis.text.x = element_text(angle = 45, hjust = 1))\n \nstation_gg \n\n```\n\n\n"}