Lesson6: 列联表与频数表、独立性检验

1、一维列联表

展示年龄的所有取值

table(df$AGE) 

比例：展示每个年龄的分布比例

prop.table(table(df$AGE))

2、二维列联表

计数：每个人种–年龄对应的人数

t1 <- table(df$AGE, df$RACE1)

计数：按行/列方向求和

margin.table(t1, 1) # 1表示按行加和，即每个年龄的人数
margin.table(t1, 2) # 2表示按列加和，即每个人种的人数

比例

prop.table(t1)

每行/列中各部分所占比例，每行/列加总为100%

prop.table(t1, 1) # 按行
prop.table(t1, 2) # 按列

在表格中添加边际和

addmargins(t1) # 行列都添加边际和
addmargins(t1,2) # 只有列添加边际和
addmargins(t1,1) # 只有行添加边际和

addmargins(prop.table(t1))# 在百分比表中添加边际和
addmargins(prop.table(t1,1),2) # 求每行各部分的比例，并添加一列用于计算行边际和
addmargins(prop.table(t1,2),1) # 求每列各部分的比例，并添加一行用于计算列边际和

3、独立性检验：列联表中两变量是否相互独立？

卡方检验

chisq.test(table1) 

fisher检验

fisher.test(table1)