i have a time Series of IBM closing px from 1/1/2000 to today
I want to graph the time serie by dividing the graph by year and month
all the monthly graphs with the same year will go to one page. so from
1/1/2000 to 11/19/2010. i will have
11 pages, and each page will have 12 graphs (jan to dec) except for 2010.
I am able to do it in R, but when i use sweave, I can only print the last
page.
any help would be greatly appreciated
Thanks
Cameron
#R code
library(fImport)
IBM <- yahooSeries("IBM", from="2000-01-01")
IBM.Close <- IBM[,"IBM.Close"]
rng=range(time(IBM.Close))
Syr <- as.numeric(format(rng[1],"%Y"))
Eyr <- as.numeric(format(rng[2],"%Y"))
Smth <- as.numeric(format(rng[1],"%m"))
for( yr in Syr:Eyr){
par(mfrow=c(4,3))
Temp1 <- IBM.Close[which(format(time(IBM.Close),"%Y")==yr),]
Temp3 <- tapply(Temp1[,1],as.yearmon(time(Temp1)),FUN=mean)
for(i in Smth:length(Temp3)){
i <- ifelse(i < 10, paste(0,i,sep=""),i)
Date <- paste(i,yr,sep="-")
Temp2 <-
IBM.Close[which(format(time(IBM.Close),"%m-%Y")==Date),]
plot(time(Temp2),Temp2,type="l",main=paste(factor(as.numeric(i), labels =
month.name[as.numeric(i)]),yr,sep="-"))
}
}
# my sweave code (pass in IBM.Close)
\pagebreak
\subsection{Graph}
\begin{figure}[!htbp]
\begin{center}
<<plot1, echo = FALSE, results = hide, fig = TRUE, height = 8>>=
rng=range(time(IBM.Close))
Syr <- as.numeric(format(rng[1],"%Y"))
Eyr <- as.numeric(format(rng[2],"%Y"))
Smth <- as.numeric(format(rng[1],"%m"))
for( yr in Syr:Eyr){
par(mfrow=c(4,3))
Temp1 <- IBM.Close[which(format(time(IBM.Close),"%Y")==yr),]
Temp3 <- tapply(Temp1[,1],as.yearmon(time(Temp1)),FUN=mean)
for(i in Smth:length(Temp3)){
i <- ifelse(i < 10, paste(0,i,sep=""),i)
Date <- paste(i,yr,sep="-")
Temp2 <-
IBM.Close[which(format(time(IBM.Close),"%m-%Y")==Date),]
plot(time(Temp2),Temp2,type="l",main=paste(factor(as.numeric(i), labels =
month.name[as.numeric(i)]),yr,sep="-"))
}
}
@
--
View this message in context:
http://r.789695.n4.nabble.com/Sweave-Dynamic-Graph-Question-tp3051003p3051003.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
