library(knitr) opts_knit$set(root.dir="../../..") # file paths are relative to the root of the project directory opts_chunk$set(echo=TRUE, warning=FALSE) library(tradeflows) library(dplyr) library(ggplot2) library(reshape2)
Simo:
itto <- classificationitto round(itto$productcodecomtrade / 10000) itto <- itto %>% mutate(twodigit = round(itto$productcodecomtrade / 10000), fourdigit = round(itto$productcodecomtrade / 100)) fourdigitalone <- itto %>% filter(twodigit == 0) fourdigitalone <- fourdigitalone$productcodecomtrade # They are only present at the 4 digit level fourdigitalone[!fourdigitalone %in% itto$fourdigit] # They are present both at the 4 and T digit level fourdigitalone[fourdigitalone %in% itto$fourdigit]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.