Thanks Phil,
That worked wonders!
Best,
Lanna
2010/3/16 Phil Spector <spec...@stat.berkeley.edu>
> Lanna -
> Here's one way:
>
> makeframe = function(x){
> b = as.data.frame(as.matrix(table(x$Species,x$Species)))
> b = b[!(b$Var1 == b$Var2),-3]
> data.frame(Year=x$Year[1],Location=x$Location[1],b)
> }
>
> result = lapply(split(x,list(x$Year,x$Location)),makeframe)
>
> result will be a list of data frames, one for each Year/Location
> combination. You can find the data frame
> for a particular Year/Location combination as
>
> Year = 1998
> Location = 'PIPE_7'
> result[[paste(Year,Location,sep='.')]]
>
> Hope this helps.
>
> - Phil Spector
> Statistical Computing Facility
> Department of Statistics
> UC Berkeley
> spec...@stat.berkeley.edu
>
>
> On Tue, 16 Mar 2010, Lanna Jin wrote:
>
>
>> Hey All,
>>
>> So, I am confused how exactly to use nesting loop functions in R to spit
>> out
>> data frames. I've managed to create a working function for my data set
>> that
>> generates a data frame for a given set of Year i and Location j; but how
>> would I do it for all Years and Locations?
>>
>> Here is my working function:
>>
>> test<-function(i,j){
>> a<-x[which(x$Year==i & x$Location==j),]
>> b<-as.data.frame(as.matrix(table(a$Species,a$Species)))
>> c<-b[-which(b$Var1==b$Var2),-3]
>> c$Year<-i; c$Location<-j
>> return(c)
>> }
>>
>> Where, x is a dataframe that looks like the following:
>>
>> head(x,n=20)
>>>
>> Year Location Species
>> 66 1998 PIPE_7 ACMI2
>> 67 1998 PIPE_7 AMAR2
>> 68 1998 PIPE_7 AMCA6
>> 69 1998 PIPE_7 ANCY
>> 70 1998 PIPE_7 ASVE
>> 71 1998 PIPE_7 BOCU
>> 72 1998 PIPE_7 CIFL
>> 73 1998 PIPE_7 DAPU5
>> 74 1998 PIPE_7 DICHANTHEL
>> 75 1998 PIPE_7 GABO2
>> 76 1998 PIPE_7 HEHE5
>> 77 1998 PIPE_7 LIAS
>> 78 1998 PIPE_7 LIPY
>> 79 1998 PIPE_7 PAVI2
>> 80 1998 PIPE_7 PHPI
>> 81 1998 PIPE_7 PHVI5
>> 82 1998 PIPE_7 RAPI
>> 83 1998 PIPE_7 SOCA6
>> 84 1998 PIPE_7 VIPE2
>> 85 1998 PIPE_7 ZIAU
>>
>> and when feeding x into my function "test" with the parameters i = 1998
>> and
>> j = "PIPE_7", I get the following dataframe, c:
>>
>> head(test(1998,"PIPE_7"),n=20)
>>>
>> Var1 Var2 Year Location
>> 2 AMAR2 ACMI2 1998 PIPE_7
>> 3 AMCA6 ACMI2 1998 PIPE_7
>> 4 ANCY ACMI2 1998 PIPE_7
>> 5 ASVE ACMI2 1998 PIPE_7
>> 6 BOCU ACMI2 1998 PIPE_7
>> 7 CIFL ACMI2 1998 PIPE_7
>> 8 DAPU5 ACMI2 1998 PIPE_7
>> 9 DICHANTHEL ACMI2 1998 PIPE_7
>> 10 GABO2 ACMI2 1998 PIPE_7
>> 11 HEHE5 ACMI2 1998 PIPE_7
>> 12 LIAS ACMI2 1998 PIPE_7
>> 13 LIPY ACMI2 1998 PIPE_7
>> 14 PAVI2 ACMI2 1998 PIPE_7
>> 15 PHPI ACMI2 1998 PIPE_7
>> 16 PHVI5 ACMI2 1998 PIPE_7
>> 17 RAPI ACMI2 1998 PIPE_7
>> 18 SOCA6 ACMI2 1998 PIPE_7
>> 19 VIPE2 ACMI2 1998 PIPE_7
>> 20 ZIAU ACMI2 1998 PIPE_7
>> 21 ACMI2 AMAR2 1998 PIPE_7
>>
>>
>> I have searched through the R-help archives for hints, which have not been
>> successful in answering my question. As a new user to R and programming
>> languages, I truly appreciate your help and thank you for your patience.
>>
>> Thanks in advance for your response,
>> Lanna Jin
>>
>> -----
>> Lanna Jin
>>
>> lanna...@gmail.com
>> 510-898-8525
>> --
>> View this message in context:
>> http://n4.nabble.com/nested-looping-functions-and-dataframes-tp1595166p1595166.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<http://www.r-project.org/posting-guide.html>
>> and provide commented, minimal, self-contained, reproducible code.
>>
>>
--
Lanna Jin
lanna...@gmail.com
510-898-8525
[[alternative HTML version deleted]]
______________________________________________
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.
