R 对分类变量的每一级应用卡方检验

我有一个数据框，如下所示。我想在每个邮政编码级别的“位置”和“分位数”变量之间进行卡方检验。我试过几种方法，但还没有成功。有人能帮忙吗

谢谢大家!

str(zip2)
tibble [10,748 x 3] (S3: tbl_df/tbl/data.frame)
 $ placement     : Factor w/ 5 levels "3 or More Grade Levels Below",..: 5 3 3 3 5 2 2 5 3 5 ...
 $ books_quantile: Factor w/ 4 levels "Q1 (>=56 books)",..: 2 2 2 2 3 3 3 2 1 2 ...
 $ zip           : Factor w/ 24 levels "38016","38018",..: 11 21 9 8 22 12 15 15 13 12 ...

你应该做：

apply(xtabs(~placement + books_quantile + zip, zip2), 3, chisq.test)

---

最简单的方法是制作一个3d数组：

zip2.arr
apply（xtabs（~.+zip，zip2），3，chisq.test）
应该做这个工作！非常感谢你！