【xtabs】函數(shù)形式：
xtabs(formula = ~., data = parent.frame(), subset, sparse = FALSE, na.action, exclude = c(NA, NaN), drop.unused.levels = FALSE)
示例：
【margin.table】按margins定義的邊際列表計(jì)算表中條目的和margin.table(x, margin = NULL)
> margin.table(mytable,1) ##1:表示按行求和
a
0.333333333333333 0.5 1 Inf
10 10 10 10
> a <- rep(c(NA, 1/0:3), 10)
> b<-rep(1:5,10)
> mytable<-xtabs(~a+b)
> margin.table(mytable,2) ##2:按列求和
b
2345
10 10 10 10
【prop.table】按margins定義的邊際列表將表中條目表示為分?jǐn)?shù)形式
prop.table(x, margin = NULL)
> a <- rep(c(NA, 1/0:3), 10)
> b<-rep(1:5,10)
> mytable<-xtabs(~a+b)
> prop.table(mytable) ##計(jì)算各元素占整體的比例

> prop.table(mytable,1) ## 1:表示行中各元素值／各行中數(shù)據(jù)來計(jì)算；

>library(vcd)
>attach(Arthritis)
>mytable<-table(Improved)
>prop.table(mytable)*100
>mytable1<-xtabs(~Treatment+Improved)
>mytable1
> prop.table(mytable1,1) ## 1:表示行中各元素值／各行中數(shù)據(jù)來計(jì)算；

> prop.table(mytable1,2)## 2:表示列中各元素值／各列中數(shù)據(jù)來計(jì)算；
【addmargins】為表格添加邊際和
addmargins(A, margin = seq_along(dim(A)), FUN = sum, quiet = FALSE)
> a <- rep(c(NA, 1/0:3), 10)
> b<-rep(1:5,10)
> mytable<-xtabs(~a+b)
>addmargins(prop.table(mytable)) ## 在行列維度均增加求和項(xiàng)；

library(vcd)
attach(Arthritis)
mytable<-table(Improved)
prop.table(mytable)*100
mytable1<-xtabs(~Treatment+Improved)
addmargins(prop.table(mytable1,2),1) ##margin取值1，行增加求和項(xiàng)，按列值求和；

> addmargins(prop.table(mytable1,2),2) ##margin取值2，列增加求和項(xiàng)，按行值求和；
【CrossTable】
CrossTable(x, y, digits=3, max.width = 5, expected=FALSE, prop.r=TRUE, prop.c=TRUE, prop.t=TRUE, prop.chisq=TRUE, chisq = FALSE, fisher=FALSE, mcnemar=FALSE, resid=FALSE, sresid=FALSE, asresid=FALSE, missing.include=FALSE, format=c("SAS","SPSS"), dnn = NULL, ...)
參數(shù)說明：
x：向量或矩陣。如y被指定，則x比為向量；
y：矩陣或數(shù)據(jù)框中的向量；
digits：保留小數(shù)點(diǎn)后的位數(shù)，默認(rèn)是3位；
max.width:默認(rèn)值5.在1×N表的情況下，默認(rèn)值將是水平打印輸出。如果列的數(shù)量超過最大寬度，則表將被包裝為每個(gè)最大寬度列的連續(xù)增量。如果需要單列垂直表，將最大寬度設(shè)置為1。
expected:默認(rèn)取值false。如取值true,增加輸出Expected N，及皮爾遜--卡方檢驗(yàn)輸出；
> CrossTable(Arthritis$Treatment,Arthritis$Improved,expected = TRUE)
prop.r:默認(rèn)取值true，輸出行比例（N / Row Total）
prop.c：默認(rèn)取值true，輸出列比例（N / Col Total）；
prop.t：默認(rèn)取值true，輸出表格總體比例（N / Table Total）；
pro.chisq:默認(rèn)取值true，輸出每個(gè)各因子的卡方分布（Chi-square contribution ）；
chisq:默認(rèn)取值false，如取值true，則輸出卡方檢驗(yàn)結(jié)果；
fisher：默認(rèn)取值false，如取值true，則輸出fisher精確檢驗(yàn)結(jié)果；
mcnemar：如取值true，則輸出mcnemar test；
resid:如取值true，則輸出包含pearson殘差；
sresid:如取值true，則輸出包含標(biāo)準(zhǔn)殘差；
missing.include:如取值true,則輸出不用的因子水平；
format：取值SAS、SPSS，輸出的格式；
dnn：輸出結(jié)果的維度名稱；
> CrossTable(Arthritis$Treatment,Arthritis$Improved,expected = TRUE,+ dnn=c("Treatment","Improved"))
【ftable】創(chuàng)建三維列聯(lián)表
ftable(x, ...)## Default S3 method:ftable(..., exclude = c(NA, NaN), row.vars = NULL,col.vars = NULL)
參數(shù)說明：
row.vars：取值整數(shù)向量，或用于給出列聯(lián)表中行變量的名稱的字符向量；
x <- ftable(mtcars[c("cyl", "vs", "am", "gear")])## 默認(rèn)狀態(tài)下，是以前三個(gè)因子為行變量創(chuàng)建三維列聯(lián)表；
x
ftable(x, row.vars = c(1, 2))

「經(jīng)管之家」APP：經(jīng)管人學(xué)習(xí)、答疑、交友，就上經(jīng)管之家！
免流量費(fèi)下載資料----在經(jīng)管之家app可以下載論壇上的所有資源，并且不額外收取下載高峰期的論壇幣。
涵蓋所有經(jīng)管領(lǐng)域的優(yōu)秀內(nèi)容----覆蓋經(jīng)濟(jì)、管理、金融投資、計(jì)量統(tǒng)計(jì)、數(shù)據(jù)分析、國貿(mào)、財(cái)會等專業(yè)的學(xué)習(xí)寶庫，各類資料應(yīng)有盡有。
來自五湖四海的經(jīng)管達(dá)人----已經(jīng)有上千萬的經(jīng)管人來到這里，你可以找到任何學(xué)科方向、有共同話題的朋友。
經(jīng)管之家（原人大經(jīng)濟(jì)論壇），跨越高校的圍墻，帶你走進(jìn)經(jīng)管知識的新世界。
掃描下方二維碼下載并注冊APP