R语言笔记多维列联表

table()和xtabs()都可以基于三个或更多的类别型变量生成多维列联表。margin.table()、

成都创新互联服务项目包括芮城网站建设、芮城网站制作、芮城网页制作以及芮城网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，芮城网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到芮城省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

prop.table()和addmargins()函数可以自然地推广到高于二维的情况。另外，ftable()函

数可以以一种紧凑而吸引人的方式输出多维列联表

> mytable<-xtabs(~ Treatment+Sex+Improved,data=Arthritis)

> ftable(mytable)

                 Improved None Some Marked

Treatment Sex                             

Placebo   Female            19    7      6

          Male              10    0      1

Treated   Female             6    5     16

          Male               7    2      5

汇总数量

> margin.table(mytable)

[1] 84

> margin.table(mytable,1)

Treatment

Placebo Treated 

     43      41 

> margin.table(mytable,2)

Sex

Female   Male 

    59     25 

> margin.table(mytable,3)

Improved

  None   Some Marked 

    42     14     28 

> margin.table(mytable,c(1,3))

         Improved

Treatment None Some Marked

  Placebo   29    7      7

  Treated   13    7     21

---

> prop.table(mytable)

> ftable(addmargins(prop.table(mytable,c(1,2)),3))

                 Improved       None       Some     Marked        Sum

Treatment Sex                                                        

Placebo   Female          0.59375000 0.21875000 0.18750000 1.00000000

          Male            0.90909091 0.00000000 0.09090909 1.00000000

Treated   Female          0.22222222 0.18518519 0.59259259 1.00000000

          Male            0.50000000 0.14285714 0.35714286 1.00000000