Jump to content

File:Components of US Money supply.svg

Page contents not supported in other languages.
This is a file from the Wikimedia Commons
From Wikipedia, the free encyclopedia

Original file (SVG file, nominally 720 × 540 pixels, file size: 57 KB)

Summary

Description
English: Components in the US Money supply based on Federal Reserve historical data
Date
Source Own work
Author Autopilot


Data

Generated with R from the US Fed published data:

  1. http://www.federalreserve.gov/releases/h6/hist/h6hist1.txt
  2. http://www.federalreserve.gov/releases/h6/hist/h6hist2.txt
  3. http://www.federalreserve.gov/releases/h6/hist/h6hista.txt

Source

m1m2 = read.table(
	"h6hist1.txt",
	header=F,
	skip=14,
	comment.char = '-',
	col.names=c('mon','year','m1','m2','m1.raw','m2.raw'),
)

currency = read.table(
	"h6hist2.txt",
	header=F,
	skip=11,
	comment.char = '-',
	col.names=c('mon','year','currency','checks','deposits','banks','thrift','total'),
)

# Merge the data frames into one
m = merge(m1m2, currency, by=c('mon','year'))

# Grab just the year-on-year changes
yr = subset(m, mon=="Oct")
yr$m1.delta = 100 * c(0,diff(yr$m1)) / yr$m1
yr$m2.delta = 100 * c(0,diff(yr$m2)) / yr$m2
yr$currency.delta = 100 * c(0,diff(yr$currency)) / yr$currency

# Plot the year-on-year change for the three stats
par(family="Times")
plot(
	m1.delta ~ year,
	data=yr,
	ylim=c(-5,15),
	type="n",
	main="Year-on-year change in the US monetary supply",
	xlab="Year",
	ylab="Percent change",
	bty='n',
	las=1
)
grid();
lines(m2.delta ~ year, data=yr, col="red")
lines(m1.delta ~ year, data=yr, col="green")
lines(currency.delta ~ year, data=yr, col="blue")

legend(
	"topleft",
	c("M2","M1","Currency"),
	col=c("red","green","blue"),
	bty='n',
	lty=1
)

dev.copy(svg, "Changes in US Money supply.svg", width=8, height=6)
dev.off()

par(family="Times")
plot(
	m2 ~ year,
	data=yr,
	type="n",
	main="Components of the US monetary supply",
	xlab="Year",
	ylab="Billions of dollars",
	bty='n',
	las=1
)
grid();
lines(m2 ~ year, data=yr, col="red")
lines(m1 ~ year, data=yr, col="green")
lines(currency ~ year, data=yr, col="blue")

legend(
	"topleft",
	c("M2", "M1","Currency"),
	col=c("red","green","blue"),
	bty='n',
	lty=1
)

dev.copy(svg, "Components of US Money supply.svg", width=8, height=6)
dev.off()

par(family="Times")
plot(
	m2 ~ year,
	data=yr,
	type="n",
	main="Components of the US monetary supply",
	xlab="Year",
	ylab="Billions of dollars",
	bty='n',
	las=1,
	log="y",
	ylim=c(10,10000)
)
grid();
lines(m2 ~ year, data=yr, col="red")
lines(m1 ~ year, data=yr, col="green")
lines(currency ~ year, data=yr, col="blue")
 
legend(
	"topleft",
	c("M2", "M1","Currency"),
	col=c("red","green","blue"),
	bty='n',
	lty=1
)
 
dev.copy(svg, "Components of US Money supply (logscale).svg", width=8, height=6)
dev.off()

Licensing

I, the copyright holder of this work, hereby publish it under the following licenses:
w:en:Creative Commons
attribution share alike
This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
  • share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
GNU head Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License.
You may select the license of your choice.

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

depicts

5 December 2010

image/svg+xml

5c0637dbc2e9e535334d58a3fbffb90688b82b0c

58,841 byte

540 pixel

720 pixel

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current13:12, 21 January 2014Thumbnail for version as of 13:12, 21 January 2014720 × 540 (57 KB)Kopiersperreupdate 2014
09:18, 30 August 2013Thumbnail for version as of 09:18, 30 August 2013720 × 540 (79 KB)Kopiersperreupdated
16:04, 5 December 2010Thumbnail for version as of 16:04, 5 December 2010720 × 540 (88 KB)Autopilot{{Information |Description={{en|1=Components in the US Money supply based on Federal Reserve historical data}} |Source={{own}} |Author=Autopilot |Date=2010-12-05 |Permission= |other_versions= }} Category:Charts
No pages on the English Wikipedia use this file (pages on other projects are not listed).

Global file usage

The following other wikis use this file:

Metadata