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]]

