us <- matrix(c(
4057,419,
1062,195,
1147,163,
2099,120,
2592,128
), nrow=2)
rownames(us) = c("Holdings", "Writedown")
colnames(us) = c("R Mortgage", "Consumer", "C Mortgage", "Corporate", "Foreign")

uk <- matrix(c(
1787,74,
411,70,
344,51,
1978,108,
2886,300
), nrow=2)
rownames(uk) = c("Holdings", "Writedown")
colnames(uk) = c("R Mortgage", "Consumer", "C Mortgage", "Corporate", "Foreign")

eu <- matrix(c(
5319,177,
914,32,
1434,102,
6227,107,
6048,395
), nrow=2)
rownames(eu) = c("Holdings", "Writedown")
colnames(eu) = c("R Mortgage", "Consumer", "C Mortgage", "Corporate", "Foreign")


png(filename="C://us_w.png", width=499, height=500)
barplot(us, ylim=c(0,6500), main="U.S. Banks", col=c("blue", "red"))
dev.off()
png(filename="C://uk_ww.png", width=499, height=500)
barplot(uk, ylim=c(0,6500), main="U.K. Banks", col=c("blue", "red"))
dev.off()
png(filename="C://eu_w.png", width=499, height=500)
barplot(eu, ylim=c(0,6500), main="Euro Area Banks", col=c("blue", "red"))
dev.off()