The Financial Crisis on Tape Part I - Graph - 1st attempt

FinCrisisPartI_Graph_Draft.R

library(ggplot2)
library(scales)
library(RColorBrewer)
#this is a slightly bespoke scale - basically I wanted a blue to red scale
#that gave extra variation over the interesting 0.6-1.0 range.
mycolvec_1 = c(rev(brewer.pal(8,"Blues")),rep("white",3),brewer.pal(8,"YlOrRd"))
ggplot(rolling.correlmatrix, aes(x = Var1, y = Var2, fill = Correl)) + 
  geom_tile() + 
  scale_fill_gradientn(colours = mycolvec_1
                       ,limits = c(-1,1))+ 
  facet_grid(quarter~year)+theme_bw()+ 
  theme(panel.grid.major.x = element_blank(),
        panel.grid.major.y = element_blank(),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        axis.text.x=element_text(angle=90))