[R] counting across leves of factors

From: peterko <lanikpeter_at_gmail.com>
Date: Wed, 09 Jun 2010 12:13:13 -0700 (PDT)

I have dataframe with 17factors variables (for example every factor have 3levels)
I have maybe 5000 observation.
And i need to do table where is in every raw 1 of possible combination of this factors and the numbur how many time is this combination in my dataset.

I wrote one code, but this is very slow and dumb.

it looks like this:

i<-0

for(i1 in levels(hivdat$pohl)){
a<-subset(hivdat,hivdat$pohl==i1)
for(i2 in levels(a$vekF)){
b<-subset(a,a$vekF==i2)
for(i3 in levels(b$ekstF)){
c<-subset(b,b$ekst==i3)
for(i4 in levels(c$zam)){
d<-subset(c,c$zam==i4)
for(i5 in levels(d$saman)){
e<-subset(d,d$saman==i5)
for(i6 in levels(e$test)){
f<-subset(e,e$test==i6)
for(i7 in levels(f$aktiv)){
g<-subset(f,f$aktiv==i7)
for(i8 in levels(g$pocpartF)){
h<-subset(g,g$vekF==i8)
for(i9 in levels(h$stav)){
i<-subset(h,h$stav==i9)
for(i10 in levels(i$partner)){
j<-subset(i,i$partner==i10)
for(i11 in levels(i$aktiv6)){
k<-subset(j,j$aktiv6==i11)
for(i12 in levels(k$pocpart6F)){
l<-subset(k,k$pocpart6F==i12)

for(i13 in levels(l$styk6F)){
m<-subset(l,l$styk6F6==i13)
for(i14 in levels(k$kond6F)){

n<-subset(m,m$kond6F==i14)
for(i15 in levels(k$styd)){
o<-subset(n,n$styd==i15)
for(i16 in levels(k$zasl)){
p<-subset(o,o$zasl==i16)
for(i17 in levels(p$izol)){
r<-subset(p,p$izol==i17)    
i<-i+1
n<-length(r$pohl)

data2[i,]<-c(n,i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17)
}}}}}}}}}}}}}}}}}

I believe that there exist smart solution, thanks

-- 
View this message in context: http://r.789695.n4.nabble.com/counting-across-leves-of-factors-tp2249355p2249355.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help_at_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.
Received on Wed 09 Jun 2010 - 20:00:20 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Wed 09 Jun 2010 - 21:00:29 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive