Khiến biểu đồ thân thiện với web
Hãy dùng ggplotly() cho biểu đồ mà bạn đã thử thay đổi kích thướ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ùng
ggplotly()để biến biểu đồduration_ggtrong Trip Durations thành phiên bản thân thiện với web. - Knit và phóng to trình xem HTML để xem kết quả. Thử thay đổi kích thước cửa sổ và quan sát điều gì xảy ra.
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\n\nOverview\n===================================== \n\nColumn {data-width=650}\n-----------------------------------------------------------------------\n\n### Origins\n\n```{r}\n\n```\n\nColumn {data-width=350}\n-----------------------------------------------------------------------\n\n\n### Trips by Start Time\n\n\n### Trip Durations\n\n```{r}\n\nduration_gg <- trips_df %>%\n mutate(`Trip Duration (min)` = duration_sec / 60) %>%\n filter(`Trip Duration (min)` <= 60) %>%\n ggplot(aes(x = `Trip Duration (min)`)) +\n theme_bw() +\n geom_histogram(binwidth = 1) +\n ylab('# Trips')\n\nduration_gg\n\n```\n\n\n"}