Table by row with R

Question

I would like to tabulate by row within a data frame. I can obtain adequate results using table within apply in the following example:

Answer 1

I think the problem is stated in applys help:

... If n equals 1, apply returns a vector if MARGIN has length 1 and an array of dimension dim(X)[MARGIN] otherwise ...

The inconsistencies of the return values of base R's apply family is the reason why I shifted completely to plyrs **ply functions. So this works as desired:

library(plyr)
alply( df.2[ 4:8 ], 1, function(x) table( unlist(x), useNA = "ifany" ) )