Khám phá các tính năng thân thiện với web
Hãy thử plotly với một biểu đồ khác và khám phá các tính năng tương tác.
Bài tập này là một phần của khóa học
Xây dựng Dashboard với flexdashboard
Hướng dẫn bài tập
- Dệt (Knit) mã như hiện tại, mở rộng trình xem HTML và kiểm tra biểu đồ kết quả.
- Dùng
ggplotly()để biến biểu đồstation_ggtrong biểu đồ Station Usage trở nên thân thiện với web. - Dệt và mở rộng để sẵn sàng khám phá.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
{"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"}