p,function(x) {x1<-x[,colSums(is.na(x))!=nrow(x)];
if(is.data.frame(x1))
>x1[complete.cases(x1),] else x1[complete.cases(x1)] })
># temp1<-lapply(temp1,function(x) x[is.data.frame(x)])
>#3 columns subset
>temp3<-temp1[lapply(temp1,length)==3]
>
>
>temp3New<-temp3[sapply(
ad_00600_W.load_00600_F: Factor w/ 17 levels
> ",,","2000.875,,414312.49534",..: 2
>3 4 5 6 7 8 9 10 11 ...
> $ 02169570,,:'data.frame':17 obs. of 1 variable:
> ..$ CYEAR_Decimal.load_00600_W.load_00600_F: Factor w/ 17 levels
>",,","
;)
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
, 21SC60WQ.SV-325, 21SC60WQ.SV-326, 21SC60WQ.SV-328,
21SC60WQ.SV-346, 21SC60WQ.SV-354, 21SCSANT.SC-001, 21SCSANT.SC-002)
<-Original Message->
>From: arun [smartpink...@yahoo.com]
>Sent: 3/4/2013 9:43:24 PM
>To: iruc...@mail2world.com
>Cc: r-help@r-project.org
>Subject: Re: [
Hi,
May be you can try:
res1<- gsub("\\_.*\\_.*\\_.*","",x)
res2<-sub("(\\w)(\\w)(\\w)(\\w)(\\w)(\\w)(\\w)(\\w)(\\w)(\\w)(\\w)$", "",
x,perl=TRUE)
identical(res1,res2)
#[1] TRUE
A.K.
- Original Message -
From: Irucka Embry
To: r-help@r-project.org
Cc:
Sent: Monday, March 4, 2013 9:
11 matches
Mail list logo
