;)
par(mfrow=c(1,1))
lapply(names(temp2New),function(i) lapply(temp2New[[i]],function(x)
{plot(x[,1],x[,2],main="Seasonal Flux
Sum",sub=paste(i,colnames(x)[2],sep="_"),xlab="Calendar Year
Timesteps",ylab="Total Flux (kg/season)");lines(x[,1],x[,2])}))
dev.off(
,i]); colnames(x1)<-
c("CYEAR_DECIMAL",i);x1}))
Error in temp3[, 1] : incorrect number of dimensions
> temp2<-temp1[lapply(temp1,ncol)==2]
> temp2New<-lapply(temp2,function(x) lapply(names(x)[-1],
function(i){x1<-cbind(temp2[,1],temp2[,i]); colnames(x1)<-
c("CYEAR_
ux
Sum",sub=paste(i,colnames(x)[2],sep="_"),xlab="Calendar Year
Timesteps",ylab="Total Flux (kg/season)");lines(x[,1],x[,2])}))
dev.off()
A.K.
____________
From: Irucka Embry
To: smartpink...@yahoo.com
Cc: r-help@r-project.org
Se
;Fluxmaster versus
>EGRET/WRTDS \n Seasonal FLux
Sum",sub=paste(i,colnames(x)[2],sep="_"),xlab="Calendar Year
>Timesteps",ylab="Total Flux (kg/season)");lines(x[,1],x[,2])}))
>dev.off()
>A.K.
>
>
>
>
>
>
>__
dev.off()
A.K.
From: Irucka Embry
To: smartpink...@yahoo.com
Cc: r-help@r-project.org
Sent: Wednesday, March 6, 2013 11:49 PM
Subject: Re: [R] multiple plots and looping assistance requested (revised codes)
Hi Arun, thank you for your assistance.
I ha
yahoo.com
Sent: Wednesday, March 6, 2013 5:24 PM
Subject: Re: [R] multiple plots and looping assistance requested (revised codes)
Hi Arun, thanks for the note. Thank you especially for noting the use of the
";" and "{}." I have updated my own code and the possible reproducib
lines(temper[[i]][1]);
lines(temper[[i]][2])})
dev.off()
which may not be the one you wanted.
A.K.
From: Irucka Embry
To: smartpink...@yahoo.com
Sent: Wednesday, March 6, 2013 9:32 PM
Subject: Re: [R] multiple plots and looping assistance requested (revised code
7 matches
Mail list logo
