Image:CAFEStandard.png
From Wikipedia, the free encyclopedia
Size of this preview: 800 × 400 pixel
Image in higher resolution (1800 × 900 pixel, file size: 22 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.2655 2 1978 18.0 19.9 194.7933 3 1979 19.0 20.3 238.8043 4 1980 20.0 24.3 304.6044 5 1981 22.0 25.9 305.6065 6 1982 24.0 26.6 262.9193 7 1983 26.0 26.4 243.7637 8 1984 27.0 26.9 228.1983 9 1985 27.5 27.6 218.2835 10 1986 26.0 28.2 163.5044 11 1987 26.0 28.5 161.6940 12 1988 26.0 28.8 154.8381 13 1989 26.5 28.4 160.1157 14 1990 27.5 28.0 173.9144 15 1991 27.5 28.4 163.2805 16 1992 27.5 27.9 156.0657 17 1993 27.5 28.4 149.2432 18 1994 27.5 28.3 146.1085 19 1995 27.5 28.6 146.6072 20 1996 27.5 28.5 154.0847 21 1997 27.5 28.7 150.6558 22 1998 27.5 28.8 127.3030 23 1999 27.5 28.3 137.3125 24 2000 27.5 28.5 173.9415 25 2001 27.5 28.8 162.3368 26 2002 27.5 29.0 150.2568 27 2003 27.5 29.5 170.8122 28 2004 27.5 29.1 197.3311
The image was made with R using the following code after loading in the data.
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 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
Legend: (cur) = this is the current file, (del) = delete
this old version, (rev) = revert to this old version.
Click on date to download the file or see the image uploaded on that date.
- (del) (cur) 00:16, 2 March 2007 . . Pdbailey (Talk | contribs) . . 1800×900 (23,017 bytes) (== 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/)
- Edit this file using an external application
See the setup instructions for more information.