ftable and xtabs

 R-help at r-project.org mailing list

Hoping someone can help me with xtabs and ftable. I'm trying to get a pair
 of ftables (possibly more) next to each other. For example:

 > dunhill_lights_xtab<-ftable(xtabs(grossedupobs ~  gender+age_group +

 dunhill_lights, data = ciggs))

 > dunhill_lights_xtab

                 dunhill_lights          No         Yes

 gender age_group

 Female 16-24                    4013099.665   11182.244

       25-34                    3563054.240   11378.064

       35-49                    4195272.629    5857.494

       50+                      3799539.477    8433.474

 Male   16-24                    4173320.528   16692.498

       25-34                    3873070.488   23458.505

       35-49                    4113760.574   17419.423

       50+                            0.000       0.000



 . this gives me my first table, and then .

 > camel_filters_xtab<-ftable(xtabs(grossedupobs ~  gender+age_group +

 camel_filters, data = ciggs))

 > camel_filters_xtab

                 camel_filters          No         Yes

 gender age_group

 Female 16-24                   4017419.038    6862.871

       25-34                   3570648.429    3783.875

       35-49                   4196824.033    4306.090

       50+                     3792671.966   15300.985

 Male   16-24                   4152031.616   37981.410

       25-34                   3837536.726   58992.267

       35-49                   4066210.315   64969.682

       50+                           0.000       0.000



 I'd like to create one table, essentially both these tables stuck together,
 something like

 > cbind(dunhill_lights_xtab, camel_filters_xtab)

        [,1]      [,2]    [,3]      [,4]

 [1,] 4013100 11182.244 4017419  6862.871

 [2,] 3563054 11378.064 3570648  3783.875

 [3,] 4195273  5857.494 4196824  4306.090

 [4,] 3799539  8433.474 3792672 15300.985

 [5,] 4173321 16692.498 4152032 37981.410

 [6,] 3873070 23458.505 3837537 58992.267

 [7,] 4113761 17419.423 4066210 64969.682

 [8,]       0     0.000       0     0.000



 . which does the trick, I just loose all the labels.  So my question is, can
 I create the full combined table, with the labels, from the start (i.e. one
 ftable & xtabs command), without the interim steps?



 Thanks



 Amnon


        [[alternative HTML version deleted]]