視覺化單一國家與年度的所有專案
現在你要使用篩選後的資料，建立 2018 會計年度在巴西進行的所有專案的折線圖。先前的練習已替你加上標籤。這次在建立圖表時，你會練習自行加入標籤，這些標籤會在你 knit 報告時顯示。
本練習屬於課程
使用 R Markdown 製作報告
練習說明
- 在
brazil-investment-projects-2018程式碼區塊中，使用brazil_investment_projects_2018資料建立散佈圖。 - 在圖上加入標題「Investment Services Projects in Brazil in 2018」。
- 將 x 軸標記為「Date Disclosed」，y 軸標記為「Total IFC Investment in Dollars in Millions」。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
{"investment_report.Rmd":"---\ntitle: \"Investment Report\"\ndate: \"`r format(Sys.time(), '%d %B %Y')`\"\noutput: html_document\n---\n\n```{r data, include = FALSE}\nlibrary(readr)\nlibrary(dplyr)\nlibrary(ggplot2)\n\ninvestment_annual_summary <- read_csv(\"https://assets.datacamp.com/production/repositories/5756/datasets/d0251f26117bbcf0ea96ac276555b9003f4f7372/investment_annual_summary.csv\")\ninvestment_services_projects <- read_csv(\"https://assets.datacamp.com/production/repositories/5756/datasets/bcb2e39ecbe521f4b414a21e35f7b8b5c50aec64/investment_services_projects.csv\")\n```\n\n\n## Datasets \n\n### Investment Annual Summary\n\nThe `investment_annual_summary` dataset provides a summary of the dollars in millions provided to each region for each fiscal year, from 2012 to 2018.\n```{r investment-annual-summary}\nggplot(investment_annual_summary, aes(x = fiscal_year, y = dollars_in_millions, color = region)) +\n geom_line() +\n labs(\n title = \"Investment Annual Summary\",\n x = \"Fiscal Year\",\n y = \"Dollars in Millions\"\n )\n```\n\n### Investment Projects in Brazil\n\nThe `investment_services_projects` dataset provides information about each investment project from 2012 to 2018. Information listed includes the project name, company name, sector, project status, and investment amounts.\n```{r brazil-investment-projects}\nbrazil_investment_projects <- investment_services_projects %>%\n filter(country == \"Brazil\") \n\nggplot(brazil_investment_projects, aes(x = date_disclosed, y = total_investment, color = status)) +\n geom_point() +\n labs(\n title = \"Investment Services Projects in Brazil\",\n x = \"Date Disclosed\",\n y = \"Total IFC Investment in Dollars in Millions\"\n )\n```\n\n### Investment Projects in Brazil in 2018\n\n```{r brazil-investment-projects-2018}\nbrazil_investment_projects_2018 <- investment_services_projects %>%\n filter(country == \"Brazil\",\n date_disclosed >= \"2017-07-01\",\n date_disclosed <= \"2018-06-30\") \n\nggplot(___, aes(x = date_disclosed, y = total_investment, color = status)) +\n geom_point() +\n labs(\n title = ___,\n x = ___,\n y = ___\n ) \n```\n\n\n"}