#graphsEU-document.r #Collects all the graphs in one .pdf document #MUST STAY IN THE SAME FOLDER AS graphsEU.r setwd("~/Dropbox/rupert/EU") ############################################################### #Graph Series x11() pdf(paste("graphs-EU-",Sys.Date(),".pdf",sep=""),onefile=TRUE,family="Times", pointsize=12,width=9.33,height=7) ############################################################### #Real GDP - Change from Peak plot(UKreal.08, main="Real Gross Domestic Product", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESreal.08), as.numeric(ITreal.08), as.numeric(UKreal.08), as.numeric(DEreal.08), as.numeric(FRreal.08), as.numeric(NLreal.08), na.rm=TRUE)-1,max(as.numeric(ESreal.08), as.numeric(ITreal.08), as.numeric(UKreal.08), as.numeric(DEreal.08), as.numeric(FRreal.08), as.numeric(NLreal.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEreal.08,col="darkgreen",lwd=2) lines(FRreal.08,col="orange3",lwd=2) lines(UKreal.08,col="red",lwd=2) lines(ESreal.08,col="orangered4",lwd=2) lines(ITreal.08,col="aquamarine4", lwd=2) lines(NLreal.08,col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real GDP - Change from Peak - with US plot(UKreal.08, main="Real Gross Domestic Product", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESreal.08), as.numeric(ITreal.08), as.numeric(UKreal.08), as.numeric(DEreal.08), as.numeric(FRreal.08), as.numeric(NLreal.08), as.numeric(USreal.08), na.rm=TRUE)-1,max(as.numeric(ESreal.08), as.numeric(ITreal.08), as.numeric(UKreal.08), as.numeric(DEreal.08), as.numeric(FRreal.08), as.numeric(NLreal.08), as.numeric(USreal.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEreal.08,col="darkgreen",lwd=2) lines(FRreal.08,col="orange3",lwd=2) lines(UKreal.08,col="red",lwd=2) lines(ESreal.08,col="orangered4",lwd=2) lines(ITreal.08,col="aquamarine4", lwd=2) lines(NLreal.08,col="purple4", lwd=2) lines(USreal.08,col="mediumblue", lwd=4) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands", "United States"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4","mediumblue"), lwd=c(2,2,2,2,2,2,2), lty=c(1,1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real GDP from Trough plot(UK.trough.08, main="Real Gross Domestic Product", ylab="", xlab="Quarters from 2009 trough", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ES.trough.08), as.numeric(IT.trough.08), as.numeric(UK.trough.08), as.numeric(DE.trough.08), as.numeric(FR.trough.08), as.numeric(NL.trough.08), na.rm=TRUE)-1,max(as.numeric(ES.trough.08), as.numeric(IT.trough.08), as.numeric(UK.trough.08), as.numeric(DE.trough.08), as.numeric(FR.trough.08), as.numeric(NL.trough.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DE.trough.08,col="darkgreen",lwd=2) lines(FR.trough.08,col="orange3",lwd=2) lines(UK.trough.08,col="red",lwd=2) lines(ES.trough.08,col="orangered4",lwd=2) lines(IT.trough.08,col="aquamarine4", lwd=2) lines(NL.trough.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2009 trough, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Private Final Consumption Expenditures - Change from Peak plot(UKcons.08, main="Real Private Final Consumption Expenditures", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(EScons.08), as.numeric(ITcons.08), as.numeric(UKcons.08), as.numeric(DEcons.08), as.numeric(FRcons.08), as.numeric(NLcons.08), na.rm=TRUE)-1,max(as.numeric(EScons.08), as.numeric(ITcons.08), as.numeric(UKcons.08), as.numeric(DEcons.08), as.numeric(FRcons.08), as.numeric(NLcons.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEcons.08,col="darkgreen",lwd=2) lines(FRcons.08,col="orange3",lwd=2) lines(UKcons.08,col="red",lwd=2) lines(EScons.08,col="orangered4",lwd=2) lines(ITcons.08,col="aquamarine4", lwd=2) lines(NLcons.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Private Final Consumption Expenditures - Change from Peak - with US plot(UKcons.08, main="Real Private Final Consumption Expenditures", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(EScons.08), as.numeric(ITcons.08), as.numeric(UKcons.08), as.numeric(DEcons.08), as.numeric(FRcons.08), as.numeric(NLcons.08),as.numeric(UScons.08), na.rm=TRUE)-1,max(as.numeric(EScons.08), as.numeric(ITcons.08), as.numeric(UKcons.08), as.numeric(DEcons.08), as.numeric(FRcons.08), as.numeric(NLcons.08),as.numeric(UScons.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEcons.08,col="darkgreen",lwd=2) lines(FRcons.08,col="orange3",lwd=2) lines(UKcons.08,col="red",lwd=2) lines(EScons.08,col="orangered4",lwd=2) lines(ITcons.08,col="aquamarine4", lwd=2) lines(NLcons.08, col="purple4", lwd=2) lines(UScons.08, col="mediumblue", lwd=4) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands", "United States"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4","mediumblue"), lwd=c(2,2,2,2,2,2,2), lty=c(1,1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Gross Capital Formation - Change from Peak plot(UKcapf.08, main="Real Gross Capital Formation", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(EScapf.08), as.numeric(ITcapf.08), as.numeric(UKcapf.08), as.numeric(DEcapf.08), as.numeric(FRcapf.08), as.numeric(NLcapf.08), na.rm=TRUE)-1,max(as.numeric(EScapf.08), as.numeric(ITcapf.08), as.numeric(UKcapf.08), as.numeric(DEcapf.08), as.numeric(FRcapf.08), as.numeric(NLcapf.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEcapf.08,col="darkgreen",lwd=2) lines(FRcapf.08,col="orange3",lwd=2) lines(UKcapf.08,col="red",lwd=2) lines(EScapf.08,col="orangered4",lwd=2) lines(ITcapf.08,col="aquamarine4", lwd=2) lines(NLcapf.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Gross Capital Formation - Change from Peak - with US plot(UKcapf.08, main="Real Gross Capital Formation", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(EScapf.08), as.numeric(ITcapf.08), as.numeric(UKcapf.08), as.numeric(DEcapf.08), as.numeric(FRcapf.08), as.numeric(NLcapf.08),as.numeric(UScapf.08), na.rm=TRUE)-1,max(as.numeric(EScapf.08), as.numeric(ITcapf.08), as.numeric(UKcapf.08), as.numeric(DEcapf.08), as.numeric(FRcapf.08), as.numeric(NLcapf.08),as.numeric(UScapf.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEcapf.08,col="darkgreen",lwd=2) lines(FRcapf.08,col="orange3",lwd=2) lines(UKcapf.08,col="red",lwd=2) lines(EScapf.08,col="orangered4",lwd=2) lines(ITcapf.08,col="aquamarine4", lwd=2) lines(NLcapf.08, col="purple4", lwd=2) lines(UScapf.08, col="mediumblue", lwd=4) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands", "United States"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4","mediumblue"), lwd=c(2,2,2,2,2,2,2), lty=c(1,1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Residential Fixed Capital Formation - Change from Peak plot(UKcapres.08, main="Real Residential Fixed Capital Formation", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(EScapres.08), as.numeric(ITcapres.08), as.numeric(UKcapres.08), as.numeric(DEcapres.08), as.numeric(FRcapres.08), as.numeric(NLcapres.08), na.rm=TRUE)-1,max(as.numeric(EScapres.08), as.numeric(ITcapres.08), as.numeric(UKcapres.08), as.numeric(DEcapres.08), as.numeric(FRcapres.08), as.numeric(NLcapres.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEcapres.08,col="darkgreen",lwd=2) lines(FRcapres.08,col="orange3",lwd=2) lines(UKcapres.08,col="red",lwd=2) lines(EScapres.08,col="orangered4",lwd=2) lines(ITcapres.08,col="aquamarine4", lwd=2) lines(NLcapres.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Final Consumption Expenditures of Government - Change from Peak plot(UKgov.08, main="Real Final Consumption Expenditures of Government", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESgov.08), as.numeric(ITgov.08), as.numeric(UKgov.08), as.numeric(DEgov.08), as.numeric(FRgov.08), as.numeric(NLgov.08), na.rm=TRUE)-1,max(as.numeric(ESgov.08), as.numeric(ITgov.08), as.numeric(UKgov.08), as.numeric(DEgov.08), as.numeric(FRgov.08), as.numeric(NLgov.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEgov.08,col="darkgreen",lwd=2) lines(FRgov.08,col="orange3",lwd=2) lines(UKgov.08,col="red",lwd=2) lines(ESgov.08,col="orangered4",lwd=2) lines(ITgov.08,col="aquamarine4", lwd=2) lines(NLgov.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Final Consumption Expenditures of Government - Change from Peak - with US plot(UKgov.08, main="Real Final Consumption Expenditures of Government", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESgov.08), as.numeric(ITgov.08), as.numeric(UKgov.08), as.numeric(DEgov.08), as.numeric(FRgov.08), as.numeric(NLgov.08),as.numeric(USgov.08), na.rm=TRUE)-1,max(as.numeric(ESgov.08), as.numeric(ITgov.08), as.numeric(UKgov.08), as.numeric(DEgov.08), as.numeric(FRgov.08), as.numeric(NLgov.08),as.numeric(USgov.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEgov.08,col="darkgreen",lwd=2) lines(FRgov.08,col="orange3",lwd=2) lines(UKgov.08,col="red",lwd=2) lines(ESgov.08,col="orangered4",lwd=2) lines(ITgov.08,col="aquamarine4", lwd=2) lines(NLgov.08, col="purple4", lwd=2) lines(USgov.08, col="mediumblue", lwd=4) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands", "United States"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4","mediumblue"), lwd=c(2,2,2,2,2,2,2), lty=c(1,1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Final Consumption Expenditures of Government as a Percentage of GDP - Change from Peak plot(UKgpctA.08, main="Real Final Consumption Expenditures of Government (% of GDP)", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESgpctA.08), as.numeric(ITgpctA.08), as.numeric(UKgpctA.08), as.numeric(DEgpctA.08), as.numeric(FRgpctA.08), as.numeric(NLgpctA.08), na.rm=TRUE)-1,max(as.numeric(ESgpctA.08), as.numeric(ITgpctA.08), as.numeric(UKgpctA.08), as.numeric(DEgpctA.08), as.numeric(FRgpctA.08), as.numeric(NLgpctA.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEgpctA.08,col="darkgreen",lwd=2) lines(FRgpctA.08,col="orange3",lwd=2) lines(UKgpctA.08,col="red",lwd=2) lines(ESgpctA.08,col="orangered4",lwd=2) lines(ITgpctA.08,col="aquamarine4", lwd=2) lines(NLgpctA.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Final Consumption Expenditures of Government as a Percentage of GDP - Change from Peak - with US plot(UKgpctA.08, main="Real Final Consumption Expenditures of Government (% of GDP)", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESgpctA.08), as.numeric(ITgpctA.08), as.numeric(UKgpctA.08), as.numeric(DEgpctA.08), as.numeric(FRgpctA.08), as.numeric(NLgpctA.08),as.numeric(ESgpctA.08), na.rm=TRUE)-1,max(as.numeric(USgpctA.08), as.numeric(ITgpctA.08), as.numeric(UKgpctA.08), as.numeric(DEgpctA.08), as.numeric(FRgpctA.08), as.numeric(NLgpctA.08), as.numeric(USgpctA.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEgpctA.08,col="darkgreen",lwd=2) lines(FRgpctA.08,col="orange3",lwd=2) lines(UKgpctA.08,col="red",lwd=2) lines(ESgpctA.08,col="orangered4",lwd=2) lines(ITgpctA.08,col="aquamarine4", lwd=2) lines(NLgpctA.08, col="purple4", lwd=2) lines(USgpctA.08, col="mediumblue", lwd=4) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands", "United States"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4","mediumblue"), lwd=c(2,2,2,2,2,2,2), lty=c(1,1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Exports - Change from Peak plot(UKexp.08, main="Real Exports", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESexp.08), as.numeric(ITexp.08), as.numeric(UKexp.08), as.numeric(DEexp.08), as.numeric(FRexp.08), as.numeric(NLexp.08), na.rm=TRUE)-1,max(as.numeric(ESexp.08), as.numeric(ITexp.08), as.numeric(UKexp.08), as.numeric(DEexp.08), as.numeric(FRexp.08), as.numeric(NLexp.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEexp.08,col="darkgreen",lwd=2) lines(FRexp.08,col="orange3",lwd=2) lines(UKexp.08,col="red",lwd=2) lines(ESexp.08,col="orangered4",lwd=2) lines(ITexp.08,col="aquamarine4", lwd=2) lines(NLexp.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Exports - Change from Peak - with US plot(UKexp.08, main="Real Exports", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESexp.08), as.numeric(ITexp.08), as.numeric(UKexp.08), as.numeric(DEexp.08), as.numeric(FRexp.08), as.numeric(NLexp.08),as.numeric(USexp.08), na.rm=TRUE)-1,max(as.numeric(ESexp.08), as.numeric(ITexp.08), as.numeric(UKexp.08), as.numeric(DEexp.08), as.numeric(FRexp.08), as.numeric(NLexp.08),as.numeric(USexp.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEexp.08,col="darkgreen",lwd=2) lines(FRexp.08,col="orange3",lwd=2) lines(UKexp.08,col="red",lwd=2) lines(ESexp.08,col="orangered4",lwd=2) lines(ITexp.08,col="aquamarine4", lwd=2) lines(NLexp.08, col="purple4", lwd=2) lines(USexp.08, col="mediumblue", lwd=4) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands", "United States"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4","mediumblue"), lwd=c(2,2,2,2,2,2,2), lty=c(1,1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################## #Real Imports - Change from Peak plot(UKimp.08, main="Real Imports", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESimp.08), as.numeric(ITimp.08), as.numeric(UKimp.08), as.numeric(DEimp.08), as.numeric(FRimp.08), as.numeric(NLimp.08), na.rm=TRUE)-1,max(as.numeric(ESimp.08), as.numeric(ITimp.08), as.numeric(UKimp.08), as.numeric(DEimp.08), as.numeric(FRimp.08), as.numeric(NLimp.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEimp.08,col="darkgreen",lwd=2) lines(FRimp.08,col="orange3",lwd=2) lines(UKimp.08,col="red",lwd=2) lines(ESimp.08,col="orangered4",lwd=2) lines(ITimp.08,col="aquamarine4", lwd=2) lines(NLimp.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Real Imports - Change from Peak - with US plot(UKimp.08, main="Real Imports", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESimp.08), as.numeric(ITimp.08), as.numeric(UKimp.08), as.numeric(DEimp.08), as.numeric(FRimp.08), as.numeric(NLimp.08),as.numeric(USimp.08), na.rm=TRUE)-1,max(as.numeric(ESimp.08), as.numeric(ITimp.08), as.numeric(UKimp.08), as.numeric(DEimp.08), as.numeric(FRimp.08), as.numeric(NLimp.08),as.numeric(USimp.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEimp.08,col="darkgreen",lwd=2) lines(FRimp.08,col="orange3",lwd=2) lines(UKimp.08,col="red",lwd=2) lines(ESimp.08,col="orangered4",lwd=2) lines(ITimp.08,col="aquamarine4", lwd=2) lines(NLimp.08, col="purple4", lwd=2) lines(USimp.08, col="mediumblue", lwd=4) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands", "United States"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4","mediumblue"), lwd=c(2,2,2,2,2,2,2), lty=c(1,1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Government Consolidated Gross Debt - Change from Peak plot(UKdebt.08, main="Government Consolidated Gross Debt", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESdebt.08), as.numeric(ITdebt.08), as.numeric(UKdebt.08), as.numeric(DEdebt.08), as.numeric(FRdebt.08), as.numeric(NLdebt.08), na.rm=TRUE)-1,max(as.numeric(ESdebt.08), as.numeric(ITdebt.08), as.numeric(UKdebt.08), as.numeric(DEdebt.08), as.numeric(FRdebt.08), as.numeric(NLdebt.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEdebt.08,col="darkgreen",lwd=2) lines(FRdebt.08,col="orange3",lwd=2) lines(UKdebt.08,col="red",lwd=2) lines(ESdebt.08,col="orangered4",lwd=2) lines(ITdebt.08,col="aquamarine4", lwd=2) lines(NLdebt.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Employment - LFS plot(UKemp.08, main="Total Employment - Labour Force Survey", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESemp.08), as.numeric(ITemp.08), as.numeric(UKemp.08), as.numeric(DEemp.08), as.numeric(FRemp.08), as.numeric(NLemp.08), na.rm=TRUE)-1,max(as.numeric(ESemp.08), as.numeric(ITemp.08), as.numeric(UKemp.08), as.numeric(DEemp.08), as.numeric(FRemp.08), as.numeric(NLemp.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEemp.08,col="darkgreen",lwd=2) lines(FRemp.08,col="orange3",lwd=2) lines(UKemp.08,col="red",lwd=2) lines(ESemp.08,col="orangered4",lwd=2) lines(ITemp.08,col="aquamarine4", lwd=2) lines(NLemp.08, col="purple4", lwd=2) box() legend("bottomleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Resident Population Concept", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Employment - National Accounts plot(UKemp2.08, main="Total Employment - National Accounts", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESemp2.08), as.numeric(ITemp2.08), as.numeric(UKemp2.08), as.numeric(DEemp2.08), as.numeric(FRemp2.08), as.numeric(NLemp2.08), na.rm=TRUE)-1,max(as.numeric(ESemp2.08), as.numeric(ITemp2.08), as.numeric(UKemp2.08), as.numeric(DEemp2.08), as.numeric(FRemp2.08), as.numeric(NLemp2.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEemp2.08,col="darkgreen",lwd=2) lines(FRemp2.08,col="orange3",lwd=2) lines(UKemp2.08,col="red",lwd=2) lines(ESemp2.08,col="orangered4",lwd=2) lines(ITemp2.08,col="aquamarine4", lwd=2) lines(NLemp2.08, col="purple4", lwd=2) box() legend("bottomleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak, Domestic Concept", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Unemployment Rate plot(UKunemp.08, main="Unemployment Rate", ylab="", xlab="Months from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESunemp.08), as.numeric(ITunemp.08), as.numeric(UKunemp.08), as.numeric(DEunemp.08), as.numeric(FRunemp.08), as.numeric(NLunemp.08), na.rm=TRUE)-1,max(as.numeric(ESunemp.08), as.numeric(ITunemp.08), as.numeric(UKunemp.08), as.numeric(DEunemp.08), as.numeric(FRunemp.08), as.numeric(NLunemp.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,120,6))) abline(h=0) lines(DEunemp.08,col="darkgreen",lwd=2) lines(FRunemp.08,col="orange3",lwd=2) lines(UKunemp.08,col="red",lwd=2) lines(ESunemp.08,col="orangered4",lwd=2) lines(ITunemp.08,col="aquamarine4", lwd=2) lines(NLunemp.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage point change from 2008 peak, Seasonally Adjusted ", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Unemployment Rate - US plot(UKunemp.08, main="Unemployment Rate", ylab="", xlab="Months from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESunemp.08), as.numeric(ITunemp.08), as.numeric(UKunemp.08), as.numeric(DEunemp.08), as.numeric(FRunemp.08), as.numeric(NLunemp.08),as.numeric(USunemp.08), na.rm=TRUE)-1,max(as.numeric(ESunemp.08), as.numeric(ITunemp.08), as.numeric(UKunemp.08), as.numeric(DEunemp.08), as.numeric(FRunemp.08), as.numeric(NLunemp.08),as.numeric(USunemp.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,120,6))) abline(h=0) lines(DEunemp.08,col="darkgreen",lwd=2) lines(FRunemp.08,col="orange3",lwd=2) lines(UKunemp.08,col="red",lwd=2) lines(ESunemp.08,col="orangered4",lwd=2) lines(ITunemp.08,col="aquamarine4", lwd=2) lines(NLunemp.08, col="purple4", lwd=2) lines(USunemp.08, col="mediumblue", lwd=4) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands", "United States"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4","mediumblue"), lwd=c(2,2,2,2,2,2,2), lty=c(1,1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage point change from 2008 peak, Seasonally Adjusted ", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Unemployment Rate - Level attach(unemp, pos=2) plot(UKunemp, main="Unemployment Rate - Level", ylab="", xlab="Year", col="white", type="l", lwd=2, bty="l", family="Times", ylim=c(min(as.numeric(ESunemp), as.numeric(ITunemp), as.numeric(UKunemp), as.numeric(DEunemp), as.numeric(FRunemp), as.numeric(NLunemp), na.rm=TRUE)-1,max(as.numeric(ESunemp), as.numeric(ITunemp), as.numeric(UKunemp), as.numeric(DEunemp), as.numeric(FRunemp), as.numeric(NLunemp), na.rm=TRUE)+1)) lines(DEunemp,col="darkgreen",lwd=2) lines(FRunemp,col="orange3",lwd=2) lines(UKunemp,col="red",lwd=2) lines(ESunemp,col="orangered4",lwd=2) lines(ITunemp,col="aquamarine4", lwd=2) lines(NLunemp, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Seasonally Adjusted", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) detach(unemp, pos=2) ############################################################### #Long-term Unemployment Rate plot(UKlturate.08, main="Long-term Unemployment Rate", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESlturate.08), as.numeric(ITlturate.08), as.numeric(UKlturate.08), as.numeric(DElturate.08), as.numeric(FRlturate.08), as.numeric(NLlturate.08), na.rm=TRUE)-1,max(as.numeric(ESlturate.08), as.numeric(ITlturate.08), as.numeric(UKlturate.08), as.numeric(DElturate.08), as.numeric(FRlturate.08), as.numeric(NLlturate.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DElturate.08,col="darkgreen",lwd=2) lines(FRlturate.08,col="orange3",lwd=2) lines(UKlturate.08,col="red",lwd=2) lines(ESlturate.08,col="orangered4",lwd=2) lines(ITlturate.08,col="aquamarine4", lwd=2) lines(NLlturate.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage point change from 2008 peak, Unemployed for over 12 months", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Labor Force Participation - ages 15-64 plot(UKlfp.15.64.08, main="Labor Force Participation Rate (Ages 15-64)", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESlfp.15.64.08), as.numeric(ITlfp.15.64.08), as.numeric(UKlfp.15.64.08), as.numeric(DElfp.15.64.08), as.numeric(FRlfp.15.64.08), as.numeric(NLlfp.15.64.08), na.rm=TRUE)-1,max(as.numeric(ESlfp.15.64.08), as.numeric(ITlfp.15.64.08), as.numeric(UKlfp.15.64.08), as.numeric(DElfp.15.64.08), as.numeric(FRlfp.15.64.08), as.numeric(NLlfp.15.64.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DElfp.15.64.08,col="darkgreen",lwd=2) lines(FRlfp.15.64.08,col="orange3",lwd=2) lines(UKlfp.15.64.08,col="red",lwd=2) lines(ESlfp.15.64.08,col="orangered4",lwd=2) lines(ITlfp.15.64.08,col="aquamarine4", lwd=2) lines(NLlfp.15.64.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage point change from 2008 peak", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Labor Force Participation - ages 15-64 - Level attach(lfp.15.64, pos=2) plot(UKlfp.15.64, main="Labor Force Participation Rate (Ages 15-64)", ylab="", xlab="Year", col="white", type="l", lwd=2, bty="l", family="Times", ylim=c(min(as.numeric(ESlfp.15.64), as.numeric(ITlfp.15.64), as.numeric(UKlfp.15.64), as.numeric(DElfp.15.64), as.numeric(FRlfp.15.64), as.numeric(NLlfp.15.64), na.rm=TRUE)-1,max(as.numeric(ESlfp.15.64), as.numeric(ITlfp.15.64), as.numeric(UKlfp.15.64), as.numeric(DElfp.15.64), as.numeric(FRlfp.15.64), as.numeric(NLlfp.15.64), na.rm=TRUE)+1)) lines(DElfp.15.64,col="darkgreen",lwd=2) lines(FRlfp.15.64,col="orange3",lwd=2) lines(UKlfp.15.64,col="red",lwd=2) lines(ESlfp.15.64,col="orangered4",lwd=2) lines(ITlfp.15.64,col="aquamarine4", lwd=2) lines(NLlfp.15.64, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) detach(lfp.15.64, pos=2) ############################################################### #Female Labor Force Participation - ages 15-64 plot(UKlfp.female.08, main="Female Labor Force Participation Rate (Ages 15-64)", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESlfp.female.08), as.numeric(ITlfp.female.08), as.numeric(UKlfp.female.08), as.numeric(DElfp.female.08), as.numeric(FRlfp.female.08), as.numeric(NLlfp.female.08), na.rm=TRUE)-1,max(as.numeric(ESlfp.female.08), as.numeric(ITlfp.female.08), as.numeric(UKlfp.female.08), as.numeric(DElfp.female.08), as.numeric(FRlfp.female.08), as.numeric(NLlfp.female.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DElfp.female.08,col="darkgreen",lwd=2) lines(FRlfp.female.08,col="orange3",lwd=2) lines(UKlfp.female.08,col="red",lwd=2) lines(ESlfp.female.08,col="orangered4",lwd=2) lines(ITlfp.female.08,col="aquamarine4", lwd=2) lines(NLlfp.female.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage point change from 2008 peak", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Female Labor Force Participation - ages 15-64 - Level attach(lfp.female,pos=2) plot(UKlfp.female, main="Female Labor Force Participation Rate (Ages 15-64)", ylab="", xlab="Year", col="white", type="l", lwd=2, bty="l", family="Times", ylim=c(min(as.numeric(ESlfp.female), as.numeric(ITlfp.female), as.numeric(UKlfp.female), as.numeric(DElfp.female), as.numeric(FRlfp.female), as.numeric(NLlfp.female), na.rm=TRUE)-1,max(as.numeric(ESlfp.female), as.numeric(ITlfp.female), as.numeric(UKlfp.female), as.numeric(DElfp.female), as.numeric(FRlfp.female), as.numeric(NLlfp.female), na.rm=TRUE)+1)) lines(DElfp.female,col="darkgreen",lwd=2) lines(FRlfp.female,col="orange3",lwd=2) lines(UKlfp.female,col="red",lwd=2) lines(ESlfp.female,col="orangered4",lwd=2) lines(ITlfp.female,col="aquamarine4", lwd=2) lines(NLlfp.female, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) detach(lfp.female,pos=2) ############################################################### #Employment Population Ratio - Ages 15 to 64 plot(UKepr.08, main="Employment Population Ratio (Ages 15-64)", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(ESepr.08), as.numeric(ITepr.08), as.numeric(UKepr.08), as.numeric(DEepr.08), as.numeric(FRepr.08), as.numeric(NLepr.08), na.rm=TRUE)-1,max(as.numeric(ESepr.08), as.numeric(ITepr.08), as.numeric(UKepr.08), as.numeric(DEepr.08), as.numeric(FRepr.08), as.numeric(NLepr.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEepr.08,col="darkgreen",lwd=2) lines(FRepr.08,col="orange3",lwd=2) lines(UKepr.08,col="red",lwd=2) lines(ESepr.08,col="orangered4",lwd=2) lines(ITepr.08,col="aquamarine4", lwd=2) lines(NLepr.08, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage point change from 2008 peak, Resident Population Concept", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ############################################################### #Employment Population Ratio - Ages 15 to 64 - Level attach(epr,pos=2) plot(UKepr, main="Employment Population Ratio (Ages 15-64)", ylab="", xlab="Year", col="white", type="l", lwd=2, bty="l", family="Times", ylim=c(min(as.numeric(ESepr), as.numeric(ITepr), as.numeric(UKepr), as.numeric(DEepr), as.numeric(FRepr), as.numeric(NLepr), na.rm=TRUE)-1,max(as.numeric(ESepr), as.numeric(ITepr), as.numeric(UKepr), as.numeric(DEepr), as.numeric(FRepr), as.numeric(NLepr), na.rm=TRUE)+1)) lines(DEepr,col="darkgreen",lwd=2) lines(FRepr,col="orange3",lwd=2) lines(UKepr,col="red",lwd=2) lines(ESepr,col="orangered4",lwd=2) lines(ITepr,col="aquamarine4", lwd=2) lines(NLepr, col="purple4", lwd=2) box() legend("topleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Resident Population Concept", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) detach(epr,pos=2) ############################################################### #Hours Worked plot(UKhours.08, main="Average Number of Weekly Hours Worked", ylab="", xlab="Quarters from 2008 peak", col="white", type="l", lwd=2, axes=FALSE, yaxs="i", xaxs="i", tck=1, bty="l", family="Times", ylim=c(min(as.numeric(EShours.08), as.numeric(IThours.08), as.numeric(UKhours.08), as.numeric(DEhours.08), as.numeric(FRhours.08), as.numeric(NLhours.08), na.rm=TRUE)-1,max(as.numeric(EShours.08), as.numeric(IThours.08), as.numeric(UKhours.08), as.numeric(DEhours.08), as.numeric(FRhours.08), as.numeric(NLhours.08), na.rm=TRUE)+1)) axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey") axis(1, tick=TRUE, las=1, at=c(seq(0,35,4))) abline(h=0) lines(DEhours.08,col="darkgreen",lwd=2) lines(FRhours.08,col="orange3",lwd=2) lines(UKhours.08,col="red",lwd=2) lines(EShours.08,col="orangered4",lwd=2) lines(IThours.08,col="aquamarine4", lwd=2) lines(NLhours.08, col="purple4", lwd=2) box() legend("bottomleft", c("Germany","France","United Kingdom","Spain", "Italy", "Netherlands"), col=c("darkgreen","orange3","red","orangered4", "aquamarine4", "purple4"), lwd=c(2,2,2,2,2,2), lty=c(1,1,1,1,1,1), inset=.02, cex=.75, bg="gray87") mtext("Percentage change from 2008 peak", side = 3, line=0.5, cex = 1) mtext("Cooley-Rupert European Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) ######################## #UK Beveridge Curve plot(UKurate, UKvac, type="o", main="U.K. Beveridge Curve", xlab="unemployment rate (percent)", ylab="vacancy rate (percent)", col="white", xy.labels=FALSE, yaxt="n", xaxt="n", tck=1, lwd=.9, pch=20, family="Times") axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey80") axis(1, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey80") points(UKurate, UKvac, type="o", col="mediumblue", lwd=.9, pch=20) points(window(UKurate,start=c(2008,1),end=NULL), window(UKvac,start=c(2008,1),end=NULL), col="red", type="o", pch=20, lwd=1.5) box() mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) mtext("Cooley-Rupert Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext(paste("2001 Q2 - ",as.character(substr(time(UKurate)[length(UKurate)],1,4))," Q",as.character(cycle(UKurate[length(UKurate)])),sep=""), side = 3, line=0.5, cex = 1) legend("topright", paste("2008 Q1 - ",as.character(substr(time(UKurate)[length(UKurate)],1,4))," Q",as.character(cycle(UKurate[length(UKurate)])),sep=""), col="red", lwd=1.5, inset=.02) ######################## #Germany Beveridge Curve plot(DEurate, DEvac, type="o", main="German Beveridge Curve", xlab="unemployment rate (percent)", ylab="vacancy rate (percent)", col="blue", xy.labels=FALSE, yaxt="n", xaxt="n", tck=1, lwd=.9, pch=20, family="Times") axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey80") axis(1, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey80") points(DEurate, DEvac, type="o", col="mediumblue", lwd=.9, pch=20) points(window(DEurate,start=c(2008,1),end=NULL), window(DEvac,start=c(2008,1),end=NULL), col="red", type="o", pch=20, lwd=1.5) box() mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) mtext("Cooley-Rupert Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext(paste("2009 Q4 - ",as.character(substr(time(DEurate)[length(DEurate)],1,4))," Q",as.character(cycle(DEurate[length(DEurate)])),sep=""), side = 3, line=0.5, cex = 1) ######################## #Netherlands Beveridge Curve plot(NLurate, NLvac, type="o", main="Netherlands Beveridge Curve", xlab="unemployment rate (percent)", ylab="vacancy rate (percent)", col="blue", xy.labels=FALSE, yaxt="n", xaxt="n", tck=1, lwd=.9, pch=20, family="Times") axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey80") axis(1, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey80") points(NLurate, NLvac, type="o", col="mediumblue", lwd=.9, pch=20) points(window(NLurate,start=c(2008,1),end=NULL), window(NLvac,start=c(2008,1),end=NULL), col="red", type="o", pch=20, lwd=1.5) box() mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) mtext("Cooley-Rupert Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext(paste("2001 Q1 - ",as.character(substr(time(NLurate)[length(NLurate)],1,4))," Q",as.character(cycle(NLurate[length(NLurate)])),sep=""), side = 3, line=0.5, cex = 1) legend("topright", paste("2008 Q1 - ",as.character(substr(time(NLurate)[length(NLurate)],1,4))," Q",as.character(cycle(NLurate[length(NLurate)])),sep=""), col="red", lwd=1.5, inset=.02) ######################## #Spain Beveridge Curve plot(ESurate, ESvac, type="o", main="Spain Beveridge Curve", xlab="unemployment rate (percent)", ylab="vacancy rate (percent)", col="blue", xy.labels=FALSE, yaxt="n", xaxt="n", tck=1, lwd=.9, pch=20, family="Times") axis(2, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey80") axis(1, tick=TRUE, tck=1, lwd.ticks=.1, col.ticks="grey80") points(ESurate, ESvac, type="o", col="mediumblue", lwd=.9, pch=20) points(window(ESurate,start=c(2008,1),end=NULL), window(ESvac,start=c(2008,1),end=NULL), col="red", type="o", pch=20, lwd=1.5) box() mtext("Source: Eurostat", side = 4, line= 1, cex = .7, adj = 0) mtext("Cooley-Rupert Economic Snapshot; www.europeansnapshot.com", side = 4, line= 0, cex = .7, adj = 0) mtext(paste("2009 Q1 - ",as.character(substr(time(ESurate)[length(ESurate)],1,4))," Q",as.character(cycle(ESurate[length(ESurate)])),sep=""), side = 3, line=0.5, cex = 1) dev.off() graphics.off() setwd("~/Dropbox/rupert/")