# R script to generate the plot
p=read.table("combat.csv",header=T,sep=",")

# Ignore the Wright Model A
p=subset(p, Year > 1920)

svg("combat-aircraft.svg",width=8,height=6)

plot(log10(Price) ~ Year, data=p,
	main="US Combat Aircraft Price",
	xlim=c(1920,2010),
	ylim=c(4,9),
	ylab="Price",
	xlab="Year of introduction",
	yaxt="n"
)
axis(2, at=c(4:9), labels=c('$10k','$100k', '$1m', '$10m', '$100m','$1b'))
abline(lm(log10(Price) ~ Year, data=p), col="red")
grid()

# Non-overlapping Subset for the labels
for (model in (c(
	'P-6 Hawk',
	'P-51 Mustang',
	'F-100 Super Sabre',
	'F-16A/B Falcon',
	'F-18E Hornet',
	'B-52H',
	'B-52B',
	'F-35 Lightning'
))) {
	d=subset(p, Model == model)
	text(d$Year, log10(d$Price), labels=d$Model, pos=2)
	points(d$Year, log10(d$Price), col="blue")
}

dev.off()

"Year","Price","Model","Source"
1906,25000,"Wright Model A","http://en.wiki.x.io/wiki/Wright_Model_A"
1929,13000,"P-6 Hawk","http://en.wiki.x.io/wiki/Curtiss_P-6_Hawk"
1935,23000,"P-36 Mohawk","http://en.wiki.x.io/wiki/Curtiss_P-36_Hawk"
1939,44892,"P-40 Kittyhawk","http://en.wiki.x.io/wiki/Curtiss_P-40_Warhawk"
1942,242595,"A-26 Invader","http://en.wiki.x.io/wiki/A-26_Invader"
1945,50985,"P-51 Mustang","http://en.wiki.x.io/wiki/P-51_Mustang"
1945,85000,"P-47 Thunderbolt","http://en.wiki.x.io/wiki/F-47"
1950,196248,"F-94B Starfire","http://en.wiki.x.io/wiki/Lockheed_F-97_Starfire"
1954,697029,"F-100 Super Sabre","http://en.wiki.x.io/wiki/North_American_F-100_Super_Sabre"
1955,1443000,"B-52B","http://en.wiki.x.io/wiki/Boeing_B-52_Stratofortress"
1958,1420000,"F-104 Starfighter","http://en.wiki.x.io/wiki/Lockheed_F-104_Starfighter"
1960,2400000,"F-4E","http://en.wiki.x.io/wiki/McDonnell_Douglas_F-4_Phantom_II"
1964,9800000,"F-111","http://en.wiki.x.io/wiki/General_Dynamics_F-111"
1970,38000000,"F-14 Tomcat","http://en.wiki.x.io/wiki/F-14_Tomcat"
1972,11800000,"A-10 Thunderbolt","http://en.wiki.x.io/wiki/Fairchild_Republic_A-10_Thunderbolt_II"
1976,27900000,"F-15 Eagle","http://en.wiki.x.io/wiki/F-15_Eagle"
1978,14600000,"F-16A/B Falcon","http://en.wiki.x.io/wiki/F-16_Falcon"
1984,18800000,"F-16C/D Falcon","http://en.wiki.x.io/wiki/F-16_Falcon"
1989,26900000,"F-16E/F Falcon","http://en.wiki.x.io/wiki/F-16_Falcon"
1983,24000000,"F-18A Hornet","http://www.fighter-planes.com/info/f18.htm"
1995,35000000,"F-18E Hornet","http://www.fighter-planes.com/info/f18.htm"
1998,53400000,"B-52H","http://en.wiki.x.io/wiki/Boeing_B-52_Stratofortress"
2005,150000000,"F/A-22 Raptor","http://www.fighter-planes.com/info/f22.htm"
2006,191900000,"F-35 Lightning","http://en.wiki.x.io/wiki/Lockheed_Martin_F-35_Lightning_II"

この作品の著作権者である私は、この作品を以下のライセンスで提供します。

このファイルはクリエイティブ・コモンズ 表示-継承 3.0 非移植ライセンスのもとに利用を許諾されています。

あなたは以下の条件に従う場合に限り、自由に

• 共有 – 本作品を複製、頒布、展示、実演できます。
• 再構成 – 二次的著作物を作成できます。

あなたの従うべき条件は以下の通りです。

• 表示 – あなたは適切なクレジットを表示し、ライセンスへのリンクを提供し、変更があったらその旨を示さなければなりません。これらは合理的であればどのような方法で行っても構いませんが、許諾者があなたやあなたの利用行為を支持していると示唆するような方法は除きます。
• 継承 – もしあなたがこの作品をリミックスしたり、改変したり、加工した場合には、あなたはあなたの貢献部分を元の作品とこれと同一または互換性があるライセンスの下に頒布しなければなりません。

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue

この文書は、フリーソフトウェア財団発行のGNUフリー文書利用許諾書 (GNU Free Documentation License) 1.2またはそれ以降のバージョンの規約に基づき、複製や再配布、改変が許可されます。不可変更部分、表紙、背表紙はありません。このライセンスの複製は、GNUフリー文書利用許諾書という章に含まれています。http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

あなたは上記のライセンスから、どれか一つ以上を選択できます。