Cannabis Sativa

Original file(SVG file, nominally 578 × 434 pixels, file size: 11 KB)

Summary[edit]

Description
English: Aluminium spot price 1987 to 2012 in US dollars per metric ton
Date
Source Own work
Author Mrfebruary
Other versions
Aluminium and copper price Al-Cu-spotprice.svg

Data[edit]

Data: Indexmundi.com download a spreadsheet of prices from http://www.indexmundi.com/commodities/?commodity=aluminum&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[edit]

R logo.svg
This vector image was created with R:

Rsplus code

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[edit]

I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution share alike
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.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current09:07, 11 September 2012Thumbnail for version as of 09:07, 11 September 2012578 × 434 (11 KB)Mrfebruarycorrect the legend
08:58, 11 September 2012Thumbnail for version as of 08:58, 11 September 2012578 × 434 (11 KB)Mrfebruaryupdate with 11 Sept 2012 LME price and title
02:29, 16 August 2012Thumbnail for version as of 02:29, 16 August 2012578 × 434 (11 KB)Mrfebruaryno title and 1987 - 2012 mean, upper quartile, lower quartile
05:16, 15 August 2012Thumbnail for version as of 05:16, 15 August 2012578 × 434 (10 KB)Mrfebruary
The following pages on the English Wikipedia link to this file (pages on other projects are not listed):

Global file usage

The following other wikis use this file:

Metadata

Leave a Reply