UK Public Spending Visualisation

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