Displaying 1 result from an estimated 1 matches for "2&course".
2011 Feb 28
1
plotting, graph, everything
...se(), sep=";", header=T)
read.table(file.choose(), sep=";", header=T)->areas
melt(areas,id=c("Year","State"),m=c("Rice"))-> ricefile
cast(ricefile,State~Year+variable)->ricefile
names(ricefile)<- c("State","P1","P2","P3","P4")
(ricefile$P4-ricefile$P1)/ricefile$P1-> ricefile$areachange
ricefile$areachange*100->ricefile$areachange1
ricefile=ricefile[-1,]
plot(ricefile$areachange1 ~ ricefile$P1, col="red", col.axis=118,
col.lab=555, pch=17, xlab="Figure in 1960"...