You probably want something like: > t1 <- table( x ) > t1 x 1 2 20 3 2 1 > t2 <- rbind( as.numeric( names( t1 ) ), t1 ) > t2 1 2 20 1 2 20 t1 3 2 1 > dimnames( t2 ) <- NULL > t2 [,1] [,2] [,3] [1,] 1 2 20 [2,] 3 2 1 >
Bendix ---------------------- Bendix Carstensen Senior Statistician Steno Diabetes Center Niels Steensens Vej 2 DK-2820 Gentofte Denmark tel: +45 44 43 87 38 mob: +45 30 75 87 38 fax: +45 44 43 07 06 [EMAIL PROTECTED] www.biostat.ku.dk/~bxc ---------------------- > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Robin Hankin > Sent: Wednesday, January 05, 2005 1:18 PM > To: R-help@stat.math.ethz.ch > Subject: [R] output from table() in matrix form > > > Hi > > How do I get the output from table() in matrix form? > > If I have > > R> table(c(1,1,1,1,2,20)) > > 1 2 20 > 4 1 1 > > I want > > [,1] [,2] [,3] > [1,] 1 2 20 > [2,] 4 1 1 > > > The problem is that names(table) is a vector of characters and I need > the numeric values. > > I am using > > R> rbind(as.integer(names(x)),x) > > > > > I thought tabulate() might be better as it takes an integer-valued > vector, but it isn't > quite right because the default bins are 1:20 and I don't want the > zeroes. > > The following is a little clunky: > > R> x <- rbind(1:20,tabulate(c(1,1,1,1,2,20))) > R> x[,x[2,]>0] > [,1] [,2] [,3] > [1,] 1 2 20 > [2,] 4 1 1 > > > Is there a better way? It seems inelegant to coerce a character > vector back to integers, > but OTOH it's wasteful to have 20 bins when I only need 3. My real > application would have > maybe a dozen distinct (prime) integers in the range 2 up to > about 1e4. > > > > > > -- > Robin Hankin > Uncertainty Analyst > Southampton Oceanography Centre > European Way, Southampton SO14 3ZH, UK > tel 023-8059-7743 > > ______________________________________________ > R-help@stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read > the posting guide! http://www.R-project.org/posting-guide.html > ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html