摘要
# 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"
References
许可协议
我,本作品著作权人,特此采用以下许可协议发表本作品:
您可以自由地:
共享 – 复制、发行并传播本作品
修改 – 改编作品
惟须遵守下列条件:
署名 – 您必须对作品进行署名,提供授权条款的链接,并说明是否对原始内容进行了更改。您可以用任何合理的方式来署名,但不得以任何方式表明许可人认可您或您的使用。
相同方式共享 – 如果您再混合、转换或者基于本作品进行创作,您必须以与原先许可协议相同或相兼容的许可协议 分发您贡献的作品。 https://creativecommons.org/licenses/by-sa/3.0 CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 true true
已授权您依据自由软件基金会 发行的无固定段落及封面封底文字(Invariant Sections, Front-Cover Texts, and Back-Cover Texts)的GNU自由文件许可协议 1.2版或任意后续版本的条款,复制、传播和/或修改本文件。该协议的副本请见“GNU Free Documentation License ”。http://www.gnu.org/copyleft/fdl.html GFDL GNU Free Documentation License true true
中文(马来西亚) 添加一行文字以描述该文件所表现的内容