始める無料で始める

レポート内でコード結果を参照する

この演習では、summarize()brazil_investment_projects_2018 を使って、2018会計年度のブラジルにおけるすべてのプロジェクトの投資総額を求めます。次に、その情報をレポート本文に追加し、コード結果を本文から参照できるようにして、ファイルをニットしたときに計算された金額が本文に表示されるようにします。

この演習はコースの一部です

R Markdown でレポート作成

コースを見る

演習の手順

  • brazil-investment-projects-2018 のコードチャンクで、2018会計年度のブラジルのプロジェクトにフィルタリングされたデータを集計し、新しい列 sum_total_investment を作成して、各プロジェクトの total_investment の合計を格納することで、brazil_investment_projects_2018_total を作成します。
  • 計算した情報を説明するため、47行目の文に Brazil2018 を追加します。
  • 47行目の文に brazil_investment_projects_2018_total への参照を追加し、2018会計年度のブラジルにおけるすべてのプロジェクトの投資総額がニットしたレポートに含まれるようにします。

実践的なインタラクティブ演習

このサンプルコードを完成させて、この演習に挑戦してみましょう。

{"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)\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}\ninvestment_annual_summary\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```\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\nbrazil_investment_projects_2018\n\nbrazil_investment_projects_2018_total <- brazil_investment_projects_2018 %>%\n  ___(sum_total_investment = ___(___, na.rm = ___)) \n```\n\nThe total investment amount for all projects in ___ in the ___ fiscal year was ___ million dollars.\n\n\n"}
コードを編集して実行