Hi Cameron,
This is a Sweave FAQ:
http://www.stat.uni-muenchen.de/~leisch/Sweave/FAQ.html#x1-11000A.9
-Ista
On Fri, Nov 19, 2010 at 4:13 PM, cameron <raymond...@invesco.com> wrote:
>
> 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.
>
--
Ista Zahn
Graduate student
University of Rochester
Department of Clinical and Social Psychology
http://yourpsyche.org
______________________________________________
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.
