Image:CAFEStandard.png

From Wikipedia, the free encyclopedia

Image
File history
File links

Size of this preview: 800 × 400 pixels
Full resolution‎ (1,800 × 900 pixels, file size: 23 KB, MIME type: image/png)

[edit] Summary

CAFE and CAFE Standard data is from [1] and is without copyright (government genesis). Price data is available from [2] back to 1990. Prior data from private communication with EIA at "contact us" email. All data is reproduced below:

   year CAFE_Standard CAFE price
1  1977            NA 18.8 206.3
2  1978          18.0 19.9 194.8
3  1979          19.0 20.3 238.8
4  1980          20.0 24.3 304.6
5  1981          22.0 25.9 305.6
6  1982          24.0 26.6 262.9
7  1983          26.0 26.4 243.8
8  1984          27.0 26.9 228.2
9  1985          27.5 27.6 218.3
10 1986          26.0 28.2 163.5
11 1987          26.0 28.5 161.7
12 1988          26.0 28.8 154.8
13 1989          26.5 28.4 160.1
14 1990          27.5 28.0 173.9
15 1991          27.5 28.4 163.3
16 1992          27.5 27.9 156.1
17 1993          27.5 28.4 149.2
18 1994          27.5 28.3 146.1
19 1995          27.5 28.6 146.6
20 1996          27.5 28.5 154.1
21 1997          27.5 28.7 150.7
22 1998          27.5 28.8 127.3
23 1999          27.5 28.3 137.3
24 2000          27.5 28.5 173.9
25 2001          27.5 28.8 162.3
26 2002          27.5 29.0 150.3
27 2003          27.5 29.5 170.8
28 2004          27.5 29.5 197.3
29 2005          27.5 30.3 234.1
30 2006          27.5 29.8 257.6

The image was made with R using the following code after loading in the data.

 data <- read.table("!!!put file location here!!!!",sep=",",head=T)
bitmap(file="CAFEStandard.png",type="png256",width=6,height=3,res=300,pointsize=12)
par(mar=c(3.5,3.5,1,3.5))
par(xaxs="i")
par(yaxs="r")
par(yaxt="n")
par(xaxt="n")
x <- data$year
plot(x,data$price,type="l",lwd=3,xlab="",ylab="")
par(yaxt="s")
par(xaxt="s")
axis(1,at=c(1980,1984,1988,1992,1996,2000,2004))
mtext("year",1,2)
par(mgp=c(2,0.5,0))
axis(2,at=c(150,200,250,300),labels=c(15,20,25,30),line=0)
mtext("MPG",2,line=2)
axis(4,at=c(150,200,250,300),labels=c("1.50","2.00","2.50","3.00"))
mtext("price per gallon (2006 dollars)",4,line=2)
lines(x,10*data$CAFE_Standard,col="red",lwd=3)
lines(x,10*data$CAFE,col="blue",lwd=3)
legend("bottomleft",legend=c("Price","CAFE","CAFE standard"),col=c("black","blue","red"),lwd=3,bty="n")
dev.off()

This work is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or any later version.
This work is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. See version 2 and version 3 of the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA

[edit] Licensing

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.

File history

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

	Date/Time	Dimensions	User	Comment
current	17:37, 2 June 2007	1,800×900 (23 KB)	Pdbailey (Talk \| contribs)
	00:16, 2 March 2007	1,800×900 (22 KB)	Pdbailey (Talk \| contribs)	(== Summary == CAFE and CAFE Standard data is from [http://www.nhtsa.gov/cars/rules/CAFE/NewPassengerCarFleet.htm] and is without copyright (government genesis). Price data is available from [http://www.eia.doe.gov/oil_gas/petroleum/data_publications/wrgp/)