File:Al-spotprice1987-2012.svg

Summary

Data

Data: Indexmundi.com download a spreadsheet of prices from http://www.indexmundi.com/commodities/?commodity=aluminium&months=300 convert to a .csv file named "alspotprices.csv" and save to your R working directory. Obtain September price from http://www.lme.com/aluminium.asp and add to "alspotprices.csv" file.

R script

a <- read.csv("alspotprices.csv",skip=1, header=TRUE, sep=",", na.strings="NA", dec=".", strip.white=TRUE)
alt<-ts(a$Price, frequency = 12, start = c(1987, 7))
str(alt)
Time-Series [1:301] from 1988 to 2012: 1653 1810 1746 1962 1680 ...
devSVGTips(file="al-spotprice2-1987-2012.svg",toolTipMode=0,width=8,height=6)
plot(alt,ylim=c(750,3500),pch=4,type="l",col="4",lwd=3, cex.lab=1,cex.main=1.7,main="Aluminium Spot Price (USD) 1987 - 2012",xlab="Year", ylab="US Dollars tonne")
mtext(side=1,line=-2.3,"Data: www.Indexmundi.com www.lme.com/aluminium.asp")
mtext(side=1,line=-1.3,cex=0.8,"http://www.indexmundi.com/commodities/?commodity=aluminum&months=300")
abline(h=1774,col=1)
abline(h=1403,lty=2,lwd=2)
abline(h=2058,lty=2,lwd=2)
legend(1995, 3500,bty='n',bg="white", c("Upper quartile $2058","Mean $1774","Lower quartile $1403"), lty = c(2,1,2),lwd=c(2,1.5,2) )
box(lwd=2)
dev.off()

Licensing

I, the copyright holder of this work, hereby publish it under the following license: This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license. You are free: to share – to copy, distribute and transmit the work to remix – to adapt the work Under the following conditions: attribution – You must attribute the work in the manner specified by the author or licensor (but not in any way that suggests that they endorse you or your use of the work). share alike – If you alter, transform, or build upon this work, you may distribute the resulting work only under the same or similar license to this one. http://creativecommons.org/licenses/by-sa/3.0 CC-BY-SA-3.0 Creative Commons Attribution-Share Alike 3.0 truetrue

• Aluminium