Explorează funcțiile prietenoase pentru web
Hai să testăm plotly cu un alt grafic și să explorăm funcțiile interactive.
Acest exercițiu face parte din cursul
Crearea de dashboarduri cu flexdashboard
Instrucțiuni pentru exercițiu
- Compilează codul așa cum este, extinde vizualizatorul HTML și inspectează graficul rezultat.
- Folosește
ggplotly()pentru a face graficulstation_ggdin diagrama Station Usage compatibil cu webul. - Compilează și extinde pentru a te pregăti de explorare.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
{"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"}