Image:USDebt.png

From Wikipedia, the free encyclopedia

• Image
• File history
• File links

Size of this preview: 514 × 600 pixels
Full resolution‎ (1,800 × 2,100 pixels, file size: 37 KB, MIME type: image/png)

Based on USG data from (1940-2005) [1], (2006-2007, and deflators back to 2000 from [2] deflator from table 1.3, debt data from table 7.1 in both documents.

no,year,gross federal debt dollars,total public dollars,deflator,gross federal debt gdp,total public gdp
1,1940,50696,42772,0.0870,52.4,44.2
2,1941,57531,48223,0.0928,50.4,42.3
3,1942,79200,67753,0.1028,54.9,47.0
4,1943,142648,127766,0.1122,79.1,70.9
5,1944,204079,184796,0.1061,97.6,88.3
6,1945,260123,235182,0.1041,117.5,106.2
7,1946,270991,241861,0.1071,121.7,108.6
8,1947,257149,224339,0.1162,110.3,96.2
9,1948,252031,216270,0.1273,98.4,84.5
10,1949,252610,214322,0.1246,93.2,79.1
11,1950,256853,219023,0.1287,94.1,80.2
12,1951,255288,214326,0.1279,79.6,66.9
13,1952,259097,214758,0.1280,74.3,61.6
14,1953,265963,218383,0.1368,71.3,58.6
15,1954,270812,224499,0.1409,71.8,59.5
16,1955,274366,226616,0.1455,69.5,57.4
17,1956,272693,222156,0.1526,63.8,52.0
18,1957,272252,219320,0.1601,60.5,48.7
19,1958,279666,226336,0.1687,60.7,49.2
20,1959,287465,234701,0.1746,58.5,47.8
21,1960,290525,236840,0.1750,56.1,45.7
22,1961,292648,238357,0.1795,55.1,44.9
23,1962,302928,248010,0.1803,53.4,43.7
24,1963,310324,253978,0.1873,51.8,42.4
25,1964,316059,256849,0.1900,49.4,40.1
26,1965,322318,260778,0.1928,46.9,38.0
27,1966,328498,263714,0.1974,43.6,35.0
28,1967,340445,266626,0.2026,41.9,32.8
29,1968,368685,289545,0.2103,42.5,33.4
30,1969,365769,278108,0.2230,38.6,29.3
31,1970,380921,283198,0.2363,37.6,28.0
32,1971,408176,303037,0.2519,37.8,28.1
33,1972,435936,322377,0.2690,37.0,27.4
34,1973,466291,340910,0.2833,35.7,26.1
35,1974,483893,343699,0.3070,33.6,23.9
36,1975,541925,394700,0.3384,34.7,25.3
37,1976,628970,477404,0.3640,36.2,27.5
38,1977,706398,549104,0.3934,35.8,27.8
39,1978,776602,607126,0.4195,35.0,27.4
40,1979,829467,640306,0.4552,33.2,25.6
41,1980,909041,711923,0.5029,33.3,26.1
42,1981,994828,789410,0.5562,32.6,25.8
43,1982,1137315,924575,0.5958,35.2,28.6
44,1983,1371660,1137268,0.6245,39.9,33.1
45,1984,1564586,1306975,0.6555,40.7,34.0
46,1985,1817423,1507260,0.6781,43.9,36.4
47,1986,2120501,1740623,0.6947,48.1,39.4
48,1987,2345956,1889753,0.7143,50.5,40.7
49,1988,2601104,2051616,0.7359,51.9,41.0
50,1989,2867800,2190716,0.7631,53.1,40.6
51,1990,3206290,2411558,0.7882,55.9,42.0
52,1991,3598178,2688999,0.8226,60.6,45.3
53,1992,4001787,2999737,0.8508,64.1,48.1
54,1993,4351044,3248396,0.8725,66.2,49.4
55,1994,4643307,3433065,0.8902,66.7,49.3
56,1995,4920586,3604378,0.9120,67.2,49.2
57,1996,5181465,3734073,0.9328,67.3,48.5
58,1997,5369206,3772344,0.9508,65.6,46.1
59,1998,5478189,3721099,0.9603,63.5,43.1
60,1999,5605523,3632363,0.9748,61.4,39.8
61,2000,5628700,3409804,1.0000,58.0,35.1
62,2001,5769881,3319615,1.0233,57.4,33.0
63,2002,6198401,3540427,1.0425,59.7,34.1
64,2003,6760014,3913443,1.0703,62.6,36.2
65,2004,7354673,4295544,1.1014,63.7,37.4
66,2005,7905316,4592229,1.1419,64.3,37.5
67,2006,8451350,4828972,1.1806,64.9,37.1
68,2007,8950744,5035129,1.2064,65.5,36.8

The image was made with R using the following code after setting the working directory properly.

# setwd("some directory")  # <- you have to change this line to get this to work
dat <- read.csv("debt.txt")
bitmap(file="USDebt.png",type="png256",width=6,height=7,res=300,pointsize=12)
par(mfrow=c(2,1))
par(mar=c(3,4,0.1,1))
plot(dat$year,dat$gross.federal.debt.dollars/dat$deflator/1e6,type="l",xlab="debt",ylab="debt (trillion 2000 dollars)",lwd=3)
lines(dat$year,dat$total.public.dollars/dat$deflator/1e6,type="l",col="red",lwd=3)
legend("topleft",lwd=3,col=c("black","red"),legend=c("gross debt","public debt"),bty="n")
par(mar=c(4.2,4,0.1,1))
plot(range(dat$year),range(dat$gross.federal.debt.gdp,dat$total.public.gdp),type="n",xlab="year",ylab="debt as a fraction of gdp")
lines(dat$year,dat$gross.federal.debt.gdp,type="l",lwd=3)
lines(dat$year,dat$total.public.gdp,type="l",col="red",lwd=3)

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

File history

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

• Search for duplicate files
• Edit this file using an external application

  See the setup instructions for more information.

File links