Visually, the elimination of duplicates in hierarchical tables in the
tabular function from the tables package is very nice. I would like to do
the same thing with non-crossed factors, but am perhaps missing some
conceptual element of how this package is used. The following code
illustrates my goal (I hope):
library(tables)
sampledf <- data.frame( Sex=rep(c("M","F"),each=6)
, Name=rep(c("John","Joe","Mark","Alice","Beth","Jane"),each=2)
, When=rep(c("Before","After"),times=6)
, Weight=c(180,190,190,180,200,200,140,145,150,140,135,135)
)
sampledf$SexName <- factor( paste( sampledf$Sex, sampledf$Name ) )
# logically, this is the layout
tabular( Name ~ Heading()* When * Weight * Heading()*identity,
data=sampledf )
# but I want to augment the Name with the Sex but visually group the
# Sex like
# tabular( Sex*Name ~ Heading()*When * Weight * Heading()*identity,
data=sampledf )
# would except that there really is no crossing between sexes.
tabular( SexName ~ Heading()*When * Weight * Heading()*identity,
data=sampledf )
# this repeats the Sex category excessively.
---------------------------------------------------------------------------
Jeff Newmiller The ..... ..... Go Live...
DCN:<jdnew...@dcn.davis.ca.us> Basics: ##.#. ##.#. Live Go...
Live: OO#.. Dead: OO#.. Playing
Research Engineer (Solar/Batteries O.O#. #.O#. with
/Software/Embedded Controllers) .OO#. .OO#. rocks...1k
______________________________________________
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.
