# [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