or ... sapply(m,function(x) table(factor(x, levels=c(NA, 1:4), exclude=NULL)))
On Fri, Sep 19, 2008 at 12:59 PM, Ralikwen <[EMAIL PROTECTED]> wrote: > > Hi, > I went for a slight alteration of your solution > > x1<-c(1,2,3,4,NA ,NA ,NA, 3, 1, 1, 1, 1, 2, 2, 3, 4, 4) > x2<-c(2,3,4,3,4,3,4,2,2,3,4,NA,NA,NA,NA,4,3) > x3<-c(1,1,1,1,"aaa",2,2,2,3,3,3,3,4,4,4,1,2) > m<-data.frame(x1,x2,x3) > m<-replace(m,is.na(m),"NA") > levels=unique(as.vector(as.matrix(m))) > mapply(function(x) table(factor(levels)), m) > > Many thanks for the help of both of you. > Balázs > > > > > Ivar Herfindal wrote: > > > > > > > mapply(function(x) table(factor(ifelse(is.na(x), "NA", x), > > levels=c("NA",1,2,3,4))), m) > > > > > > -- > View this message in context: > http://www.nabble.com/frequency-table-across-multiple-variables-tp19567838p19569510.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 > and provide commented, minimal, self-contained, reproducible code. > [[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.