## Not run:
# ## First read in a labour relations pre-defined excel file:
# df <- read.lar("Spain_1900_(JMTL-Sept2011).xlsx")
#
# ## Next, draw a treemap of the labour relations:
# draw.lar(df)
#
# ## Treemap with example data set for Spain in 1900
# data(spain.1900)
# draw.lar(spain.1900)
#
# ## Save treemap image as .png
# data(spain.1900)
# ppi <- 300 # define pixels: increase this number for even better quality
# png(file = "tm_spain_1900.png",
# , width=10*ppi, height=8*ppi, res=ppi)
# draw.lar(spain.1900)
# dev.off()
# ## End(Not run)
Run the code above in your browser using DataLab