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

当前标题：R语言笔记多维列联表
网站网址：http://kswjz.com/article/gjigij.html