Jump to content

File:CAFEStandard2.png

Page contents not supported in other languages.
This is a file from the Wikimedia Commons
From Wikipedia, the free encyclopedia
    Original file (1,800 × 900 pixels, file size: 24 KB, MIME type: image/png)

    Summary

    This graph image could be re-created using vector graphics as a SVG file. This has several advantages; see Commons:Media for cleanup for more information. If a SVG form of this image is available, please upload it and afterwards replace this template with {{vector version available|new image name}}.
    It is recommended to name the SVG file “CAFEStandard2.svg”—then the template Vector version available (or Vva) does not need the new image name parameter.
    Description
    English: 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. New price data (nprice) is from the EIA website [3]. 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()
    Date 2 June 2007 (original upload date)
    Source Transferred from en.wikipedia to Commons by IngerAlHaosului using CommonsHelper.
    Author The original uploader was O18 at English Wikipedia.
    Permission
    (Reusing this file)    		 CC-BY-SA-3.0-MIGRATED; Released under the GNU Free Documentation License; GPL.
    Other versions

    Licensing

    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.
    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.
    This licensing tag was added to this file as part of the GFDL licensing update.

    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.

    Original upload log

    The original description page was here. All following user names refer to en.wikipedia.
    • 2007-06-02 17:37 O18 1800×900× (23352 bytes)
    • 2007-03-02 00:16 O18 1800×900× (23017 bytes) 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/

    Captions

    Add a one-line explanation of what this file represents

    Items portrayed in this file

    depicts

    media type

    image/png

    checksum

    7ba9b789c0335a76797b830a993afff0b85b7f0e

    determination method or standard: SHA-1

    data size

    24,544 byte

    height

    900 pixel

    width

    1,800 pixel

    File history

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

    Date/TimeThumbnailDimensionsUserComment
    current21:50, 15 July 2010Thumbnail for version as of 21:50, 15 July 20101,800 × 900 (24 KB)Pdbailey

    The following page uses this file:

    Global file usage

    The following other wikis use this file:

    Retrieved from "https://en.wikipedia.org/wiki/File:CAFEStandard2.png"