การเพิ่มแผนภูมิ

{"my_document.Rmd":"---\ntitle: \"Bikeshare\"\noutput: \n  flexdashboard::flex_dashboard\n---\n  \n```{r setup, include=FALSE}\nlibrary(flexdashboard)\nlibrary(readr)\nlibrary(ggplot2)\nlibrary(dplyr)\nlibrary(lubridate)\n```\n\n```{r load_data, include = FALSE}\ntrips_df <- read_csv('https://assets.datacamp.com/production/course_5875/datasets/sanfran_bikeshare_joined_oneday.csv')\n```\n\n```{r plot1}\n\ntrips_df %>%\n  mutate(Hour = hour(start_date)) %>%\n  group_by(Hour) %>%\n  summarize(`Trips Started` = n()) %>%\n  ggplot(aes(x = Hour, y = `Trips Started`)) +\n  theme_bw() +\n  geom_bar(stat = 'identity')\n\n```\n\nColumn\n-----------------------------------------------------------------------\n  \n### Chart A\n  \n```{r}\n\n```\n\nColumn\n-----------------------------------------------------------------------\n  \n### Chart B\n  \n```{r}\n\n```\n\n### Chart C\n\n```{r}\n\n```\n\n\n"}