This is a treemap visualisation of 2011-12 UK public spending.
Data are from the Guardian: http://www.theguardian.com/news/datablog/2012/dec/04/government-spending-department-2011-12
Load the library:
# install.packages('treemap')
library("treemap")Read data:
setwd("~/mapping/projects/blog/Govt_Spending/code/")
# d <- read.csv('../data/test_data2.csv')
d <- read.csv("../data/spending_data.csv")Make a treemap using percentage change as colour:
treemap(d,
index=c("Department", "Description"), # Columns in order of aggregation
vSize="spend_2011_12", # Size of rectangles
vColor="pct_change", # How to colour rectangles
type="value",
title="UK Government spending by department",
title.legend="Change (ignore inflation) in spending, 2010/11 - 2011/12")
Another map, this time using hierarchical colours (change 'index')
treemap(d,
index=c("Department", "Description"), # Columns in order of aggregation
vSize="spend_2011_12", # Size of rectangles
type="index",
title="UK Government spending by department")
Finally make a pdf (better for final edits)
pdf ("Spending_Treemap.pdf")
treemap(d,
index=c("Department", "Description"), # Columns in order of aggregation
vSize="spend_2011_12", # Size of rectangles
type="index",
title="UK Government spending by department")
dev.off()## pdf
## 2