Файл: CAFEStandard2.png

Английский: CAFE и CAFE Стандартные данные взяты из [1] и не защищены авторскими правами (государственное происхождение). Данные о ценах доступны с [2] до 1990 года. Предварительные данные получены из личного общения с EIA по электронной почте «свяжитесь с нами». Новые данные о ценах (nprice) взяты с сайта EIA [3] . Он был обновлен с использованием ИПЦ из BLS.

Все данные воспроизводятся ниже:

 год CAFE_Стандартная цена CAFE год CAFE_Standard CAFE цена грузовик 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,49 18
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,5 9 10
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

Изображение было создано с помощью R с использованием следующего кода после загрузки данных.

 data <- read.table ("!!! поместите сюда расположение файла !!!!", head = T)
data $ nprice.def <- tab $ nprice * 215.3 / tab $ cpi
data $ nprice.def [1:16] <- tab $ price [1:16] * 159,57 / 149,2
растровое изображение (file = "CAFEStandard.png", type = "png256", width = 6, height = 3, res = 300, pointsize = 12)
номинал (мар = c (3.5,3.5,1,3.5))
номинал (xaxs = "i")
номинал (yaxs = "r")
номинал (yaxt = "n")
par (xaxt = "n")
x <- данные $ год
plot (x, data $ nprice.def, type = "l", lwd = 3, xlab = "", ylab = "")
номинал (yaxt = "s")
par (xaxt = "s")
ось (1, at = c (1980,1984,1988,1992,1996,2000,2004,2008))
mtext ("год"; 1,2)
номинал (mgp = c (2,0,5,0))
ось (2, at = c (150,200,250,300,350), label = c (15,20,25,30,35), строка = 0)
mtext ("MPG"; 2, строка = 2)
ось (4, at = c (150,200,250,300), labels = c («1,50», «2,00», «2,50», «3,00»))
mtext ("цена за галлон (в долларах 2008 г.)"; 4, строка = 2)
строки (x, 10 * данные $ CAFE_Standard, col = "red", lwd = 3)
строки (x, 10 * data $ CAFE, col = "blue", lwd = 3)
строки (x, 10 * data $ truck, col = "orange", lwd = 3)
легенда ("нижний левый", legend = c ("Цена", "КАФЕ (легковой автомобиль)", "КАФЕ (легкий грузовик)", "КАФЕ стандарт (легковой автомобиль)"), col = c ("черный", "синий", "оранжевый", "красный"), lwd = 3, bty = "n")
dev.off ()