options(width = 120)
library('data.tree')
library(treemap)
data(GNI2014)
head(GNI2014)
GNI2014$pathString <- paste("world", 
                            GNI2014$continent, 
                            GNI2014$country, 
                            sep = "/")

head(GNI2014)
population <- as.Node(GNI2014)
print(population, "iso3", "population", "GNI", limit = 20)