# 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.wikipedia.org/wiki/Wright_Model_A"
1929,13000,"P-6 Hawk","http://en.wikipedia.org/wiki/Curtiss_P-6_Hawk"
1935,23000,"P-36 Mohawk","http://en.wikipedia.org/wiki/Curtiss_P-36_Hawk"
1939,44892,"P-40 Kittyhawk","http://en.wikipedia.org/wiki/Curtiss_P-40_Warhawk"
1942,242595,"A-26 Invader","http://en.wikipedia.org/wiki/A-26_Invader"
1945,50985,"P-51 Mustang","http://en.wikipedia.org/wiki/P-51_Mustang"
1945,85000,"P-47 Thunderbolt","http://en.wikipedia.org/wiki/F-47"
1950,196248,"F-94B Starfire","http://en.wikipedia.org/wiki/Lockheed_F-97_Starfire"
1954,697029,"F-100 Super Sabre","http://en.wikipedia.org/wiki/North_American_F-100_Super_Sabre"
1955,1443000,"B-52B","http://en.wikipedia.org/wiki/Boeing_B-52_Stratofortress"
1958,1420000,"F-104 Starfighter","http://en.wikipedia.org/wiki/Lockheed_F-104_Starfighter"
1960,2400000,"F-4E","http://en.wikipedia.org/wiki/McDonnell_Douglas_F-4_Phantom_II"
1964,9800000,"F-111","http://en.wikipedia.org/wiki/General_Dynamics_F-111"
1970,38000000,"F-14 Tomcat","http://en.wikipedia.org/wiki/F-14_Tomcat"
1972,11800000,"A-10 Thunderbolt","http://en.wikipedia.org/wiki/Fairchild_Republic_A-10_Thunderbolt_II"
1976,27900000,"F-15 Eagle","http://en.wikipedia.org/wiki/F-15_Eagle"
1978,14600000,"F-16A/B Falcon","http://en.wikipedia.org/wiki/F-16_Falcon"
1984,18800000,"F-16C/D Falcon","http://en.wikipedia.org/wiki/F-16_Falcon"
1989,26900000,"F-16E/F Falcon","http://en.wikipedia.org/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.wikipedia.org/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.wikipedia.org/wiki/Lockheed_Martin_F-35_Lightning_II"

我，本作品的著作權持有者，決定用以下授權條款發佈本作品：

此檔案採用創用CC 姓名標示-相同方式分享 3.0 未在地化版本授權條款。

您可以自由：

• 分享 – 複製、發佈和傳播本作品
• 重新修改 – 創作演繹作品

惟需遵照下列條件：

• 姓名標示 – 您必須指名出正確的製作者，和提供授權條款的連結，以及表示是否有對內容上做出變更。您可以用任何合理的方式來行動，但不得以任何方式表明授權條款是對您許可或是由您所使用。
• 相同方式分享 – 如果您利用本素材進行再混合、轉換或創作，您必須基於如同原先的相同或兼容的條款，來分布您的貢獻成品。

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

已授權您依據自由軟體基金會發行的無固定段落、封面文字和封底文字GNU自由文件授權條款1.2版或任意後續版本，對本檔進行複製、傳播和／或修改。該協議的副本列在GNU自由文件授權條款中。http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

您可以選擇您需要的授權條款。