library(knitr) opts_knit$set(root.dir="../..") # file paths are relative to the root of the project directory library(GFPMoutput) library(dplyr) library(tidyr) library(ggplot2)
forarea <- read.csv("rawdata/forestarea.csv", stringsAsFactors = FALSE) %>% left_join(countrycodes[c("Country_Code","Country", "EU27")], by = "Country_Code") %>% filter(EU27) %>% arrange(desc(forestarea)) forarea %>% head()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.