File:CAFEStandard2.png

Summary

CAFE and CAFE Standard data is from <a rel="nofollow" class="external autonumber" href="http://www.nhtsa.gov/staticfiles/rulemaking/pdf/cafe/CAFE_Performance_Report_April_2010.pdf">[1]</a> and is without copyright (government genesis). Price data is available from <a rel="nofollow" class="external autonumber" href="http://www.eia.doe.gov/oil_gas/petroleum/data_publications/wrgp/mogas_history.html">[2]</a> back to 1990. Prior data from private communication with EIA at "contact us" email. New price data (nprice) is from the EIA website <a rel="nofollow" class="external autonumber" href="http://www.eia.doe.gov/dnav/pet/hist/LeafHandler.ashx?n=pet&s=mg_tt_us&f=a">[3]</a>. It was updated using the CPI from the BLS.

All data is reproduced below:

   year CAFE_Standard CAFE price
   year CAFE_Standard CAFE price truck nprice   cpi nprice.def
1  1977            NA 18.8 206.3    NA     NA    NA   220.6387
2  1978          18.0 19.9 194.8    NA     NA    NA   208.3394
3  1979          19.0 20.3 238.8  18.2     NA    NA   255.3976
4  1980          20.0 24.3 304.6  18.5     NA    NA   325.7709
5  1981          22.0 25.9 305.6  20.1     NA    NA   326.8404
6  1982          24.0 26.6 262.9  20.5     NA    NA   281.1726
7  1983          26.0 26.4 243.8  20.7     NA    NA   260.7451
8  1984          27.0 26.9 228.2  20.6     NA    NA   244.0608
9  1985          27.5 27.6 218.3  20.7     NA    NA   233.4727
10 1986          26.0 28.2 163.5  21.5     NA    NA   174.8639
11 1987          26.0 28.5 161.7  21.7     NA    NA   172.9388
12 1988          26.0 28.8 154.8  21.3     NA    NA   165.5592
13 1989          26.5 28.4 160.1  21.0     NA    NA   171.2276
14 1990          27.5 28.0 173.9  20.8     NA    NA   185.9867
15 1991          27.5 28.4 163.3  21.3     NA    NA   174.6500
16 1992          27.5 27.9 156.1  20.8     NA    NA   166.9496
17 1993          27.5 28.4 149.2  21.0  107.1 144.5   159.5753
18 1994          27.5 28.3 146.1  20.8  107.8 148.2   156.6082
19 1995          27.5 28.6 146.6  20.5  115.8 152.4   163.5941
20 1996          27.5 28.5 154.1  20.8  126.9 156.9   174.1337
21 1997          27.5 28.7 150.7  20.6  124.4 160.5   166.8743
22 1998          27.5 28.8 127.3  21.0  107.2 163.0   141.5961
23 1999          27.5 28.3 137.3  20.9  117.6 166.6   151.9765
24 2000          27.5 28.5 173.9  21.3  152.3 172.2   190.4192
25 2001          27.5 28.8 162.3  20.9  146.0 177.1   177.4918
26 2002          27.5 29.0 150.3  21.4  138.6 179.9   165.8732
27 2003          27.5 29.5 170.8  21.8  160.3 184.0   187.5684
28 2004          27.5 29.5 197.3  21.5  189.5 188.9   215.9839
29 2005          27.5 30.3 234.1  22.1  231.4 195.3   255.0969
30 2006          27.5 30.1 257.6  22.5  261.8 201.6   279.5910
31 2007          27.5 31.2 257.6  23.1  284.3 207.3   295.2715
32 2008          27.5 31.6 257.6  23.6  329.9 215.3   329.9000
33 2009          27.5 32.6 257.6  24.6  240.6 214.5   241.4973
34 2010          27.5 33.8 257.6  24.9  281.1 214.5   282.1484

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

 data <- read.table("!!!put file location here!!!!",head=T)
data$nprice.def <- tab$nprice * 215.3/tab$cpi
data$nprice.def[1:16] <- tab$price[1:16] * 159.57/149.2

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$nprice.def,type="l",lwd=3,xlab="",ylab="")
par(yaxt="s")
par(xaxt="s")
axis(1,at=c(1980,1984,1988,1992,1996,2000,2004,2008))
mtext("year",1,2)
par(mgp=c(2,0.5,0))
axis(2,at=c(150,200,250,300,350),labels=c(15,20,25,30,35),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 (2008 dollars)",4,line=2)
lines(x,10*data$CAFE_Standard,col="red",lwd=3)
lines(x,10*data$CAFE,col="blue",lwd=3)
lines(x,10*data$truck,col="orange",lwd=3)
legend("bottomleft",legend=c("Price","CAFE (car)","CAFE (light truck)","CAFE standard (car)"),col=c("black","blue","orange","red"),lwd=3,bty="n")
dev.off()

Licensing

Lua error in package.lua at line 80: module 'strict' not found.