Message-ID: <1361476189.18612.YahooMailNeo@web142604.mail.bf1.yahoo.com>
Date: 2013-02-21T19:49:49Z
From: arun
Subject: loop
In-Reply-To: <BLU170-W96A733A122C75AEC1BE94F89F70@phx.gbl>
Hi,
Try this:
You can save it as either individual jpeg files or as a single pdf document containing all the figures.
set.seed(54)
res<- matrix(sample(20:60,25,replace=TRUE),ncol=5)
res1<- res[,-1]
b<- res[,1]
#jpeg
?mypath<- file.path("/home/arunksa111/Trial", paste("myplot_",names1,".jpg",sep=""))
for(i in seq_along(mypath)){
lapply(seq_len(ncol(res1)),function(i){
jpeg(file=mypath[i])
?matplot(res1[,i],type="l",col="grey")
?lines(b,lwd=2,col="black")
?dev.off()
?})
?}
#pdf
mypath1<- file.path("/home/arunksa111/Trial", "myplot.pdf")
pdf(file=mypath1)
lapply(seq_len(ncol(res1)),function(i){
?matplot(res1[,i],type="l",col="grey")
?lines(b,lwd=2,col="black")
?})
?dev.off()
________________________________
From: eliza botto <eliza_botto at hotmail.com>
To: "smartpink111 at yahoo.com" <smartpink111 at yahoo.com>
Sent: Thursday, February 21, 2013 1:16 PM
Subject: loop
Dear Arun,
i have a matrix called "res" of 124 rows and 12 columns. i want to draw curve of each column against the first column and want to save that file at a specific location in my computer.
i used the following commands but they are not working
names1<-1:123
?b<-res[,1]
mypath<-file.path("/R/SAVEHERE",paste("myplot_",names1,".jpg",sep="")) ?#change the file.path
for(i in seq_along(mypath)){
? lapply(seq_along(res),function(i) {
? jpeg(file=mypath[i])
? matplot(res[[i]][,-1],type="l",col="grey")
? lines(b,lwd=2,col="black")
? dev.off()
? ?})
?}
i hope you can find the error
thanks in advance
elisa
-------------- next part --------------
A non-text attachment was scrubbed...
Name: myplot.pdf
Type: application/pdf
Size: 6444 bytes
Desc: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20130221/ca45132e/attachment.pdf>