为报告添加多个参数
之前，您为 country 添加了参数，以便基于 investment_services_projects 数据，为其中任一国家生成汇总投资项目信息的新报告。现在，您将为会计年度添加参数，并修改现有代码，从而可以基于 investment_services_projects 数据，为任一国家和会计年度生成投资项目报告。
本练习是课程的一部分
使用 R Markdown 生成报告
练习说明
- 添加会计年度参数
fy，并将会计年度设为2018。 - 为起止日期添加参数
year_start和year_end，其中 2018 会计年度的year_start为2017-07-01，year_end为2018-06-30。 - 将第
64和65行filter()中的日期引用，替换为对year_start和year_end参数的引用。 - 在
country-investment-projects-2018代码块中，将代码块重命名为country-annual-investment-projects，并将对象名及其在正文中的引用重命名为country_annual_investment_projects。
交互式实操练习
通过完成这段示例代码来试试这个练习。
{"investment_report.Rmd":"---\ntitle: \"Investment Report for Projects in `r params$country`\"\noutput: \n html_document:\n toc: true\n toc_float: true\ndate: \"`r format(Sys.time(), '%d %B %Y')`\"\nparams:\n country: Brazil\n---\n\n```{r setup, include = FALSE}\nknitr::opts_chunk$set(fig.align = 'center', echo = TRUE)\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\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 `r params$country`\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. Projects that do not have an associated investment amount are excluded from the plot.\n\n```{r country-investment-projects}\ncountry_investment_projects <- investment_services_projects %>%\n filter(country == params$country) \n\nggplot(country_investment_projects, aes(x = date_disclosed, y = total_investment, color = status)) +\n geom_point() +\n labs(\n title = \"Investment Services Projects\",\n x = \"Date Disclosed\",\n y = \"Total IFC Investment in Dollars in Millions\"\n )\n```\n\n### Investment Projects in `r params$country` in 2018\nThe `investment_services_projects` dataset was filtered below to focus on information about each investment project from the 2018 fiscal year, and is referred to as `country_investment_projects_2018`. Projects that do not have an associated investment amount are excluded from the plot.\n```{r country-investment-projects-2018}\ncountry_investment_projects_2018 <- investment_services_projects %>%\n filter(country == params$country,\n date_disclosed >= \"2017-07-01\",\n date_disclosed <= \"2018-06-30\") \n\nggplot(country_investment_projects_2018, aes(x = date_disclosed, y = total_investment, color = status)) +\n geom_point() +\n labs(\n title = \"Investment Services Projects\",\n x = \"Date Disclosed\",\n y = \"Total IFC Investment in Dollars in Millions\"\n ) \n```\n\n\n"}